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1.0  INTRODUCTION 


This  manual  describes  the  RELBET  4.0  System  as  Implemented  on  the  Hewlett 
Packard  model  9000  computer  system.  It  is  directed  toward  programmers  and 
system  maintenance  personnel.  It  is  intended  to  serve  both  as  a reference  and 
as  a introductory  guide  to  the  software.  The  body  of  the  manual  provides  an 
overview  of  major  features  and  indicates  where  to  look  for  further 
information.  Full  details  are  left  to  Appendices.  It  is  recommended  that  you 
first  read  the  body  of  this  manual  to  familiarize  yourself  with  terminology 
and  system  organization. 

This  manual  is  divided  into  the  following  sections: 

1.  INTRODUCTION:  Identifies  the  RELBET  System  and  provides  an  overview 

of  the  organization  and  use  of  the  manual.  Tells  you  what  to  expect. 

2.  REFERENCES:  Provides  references  to  associated  documentation.  Tells 

you  where  to  find  additional  information. 

3.  FUNCTIONAL  OVERVIEW:  Provides  a basic  functional  overview  of  the 

operation  of  the  RELBET  System.  Explains  what  programs  are  supposed 
to  do. 

4.  DESIGN  DESCRIPTION:  Provides  an  overview  of  key  features  of  the 

design.  Explains  how  things  fit  together. 

5.  DIRECTORY  STRUCTURE:  Describes  the  directory  structure  of  the 

delivery  version.  Explains  where  to  look  for  something. 

6.  INSTALLATION  AND  MAINTAINCE:  Describes  procedures  for  installing  the 
delivery  version  on  an  HP9000  and  provides  an  overview  of  maintenance 
facilities.  Explains  how  to  change  something. 

The  following  appendices  provide  extensive  details. 

I.  FILE  FORMATS:  Provides  details  on  the  formats  of  the  files  used  by 
the  System. 

II.  CONTEXT  FILES:  Provides  information  on  the  contents  of  common 

block,  default  values,  parameter  declarations,  type  declarations, 
and  so  on.  These  files  are  generally  associated  with  the  "include" 
directive. 
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III.  SUBROUTINE  MANUALS:  Provides  a quick  reference  to  subroutine 

function  descriptions  and  associated  calling  arguments  used. 

IV.  SOURCE  LISTINGS:  Provides  listing  of  subroutine  code  suitably 

indented  to  reflect  the  processing  structure. 


1.1  IDENTIFICATION 

The  RELBET  System  is  an  integrated  collection  of  computer  programs  that 
support  the  analysis  and  post-flight  reconstruction  of  vehicle  to  vehicle 
relative  trajectories  of  two  on-orbit  free-flying  vehicles:  the  Space  Shuttle 

Orbiter  and  some  other  free-flyer.  The  UNIVAC  1100  version  of  the  system, 
RELBET  2.0,  realizes  the  full  production  and  analysis  capability.  The  HP9000 
version,  RELBET  4.0,  provides  a basic  post-flight  data  production  capability 
and  is  a partial  implementation  of  the  full  analysis  version.  RELBET  4.0  was 
created  by  carefully  tailoring  the  RELBET  analysis  software  to  fit  the 
production  problem  and  reflects  a streamlined  production-oriented  version  that 
supports  the  post-flight  reconstruction  of  relative  trajectories  and  the 
generation  of  standard  data  products. 

In  particular  the  RELBET  4.0  System  accepts  Orbiter  downlist  telemetry  input 
in  the  form  of  Computer  Compatible  Tapes  (CCT's)  and  produces  the  following 
outputs: 

o RELBET  Ancillary  Data  Product  Tape 
o RELBET  Ancillary  Data  Fiche  Tape 
o SENSOR  Program  Input  Data  Tape 
o SENSOR  Program  Environmental  Data  Tape 
o Tables  for  Reports 

It  incorporates  the  following  features  not  available  in  RELBET  2.0: 

o Organization  of  standard  runstreams  into  shell  scripts 
o Enhanced  user  input  scheme  via  1 input 
o Increased  data  QA  programs 
A text  file  QA  data  base 


o 


It  lacks  the  following  features  available  in  RELBET  2.0: 

o Data  and  trajectory  simulation  capabilities 
o General  purpose  automatic  editor 
o Least  Squares  Filter 
o Residual  computation  programs 
o Binary  Data  Base  Editor 

o General  interactive  control  of  display  processors 
o Miscellaneous  display  processors 

The  delivered  version  of  RELBET  4.0  is  available  in  magnetic  tape  media  and 
consists  of  the  following  elements. 

o Source  code  (configured  in  SCCS  format) 
o Relocatable  subroutine  code 
o Executable  programs 
o Program  creation  directives  (makefile's) 
o Maintenance  tools 

o Program  and  subroutine  documentation  (for  nroff  formatting) 

Tapes  containing  sample  input  and  output  are  also  available. 


1.2  REQUIRED  BACKGROUND 

This  manual  assumes  a basic  familiarity  with  UNIX,  C,  and  FORTRAN  as 
implemented  via  BOX  and  ratfor.  In  addition  particular  areas  may  require 
additional  expertise.  This  varies  depending  upon  the  application  and  is 
summarized  in  Table  1.2.  Parenthetical  numbers  indicate  the  applicable 
section  of  standard  UNIX  manuals.  For  Information  on  these  areas,  consult  the 
references  in  section  2.0  or  a standard  UNIX  reference. 


I 
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Table  1.2.  Background  Summary 


Area 

General  source  code 
1 input  source 
Graphics  display 
Configuration  Control 
Creating  programs 
Common  blocks 
Input  blocks 
Documentati on 


Applicable  Background 

FORTRAN,  BOX,  ratfor,  C,  Bourne  Shell 
C,  lex(l),  yacc(l) 

DISSPLA 
sccs(l) 
make(l) 
mtf  utilities 
mtf  utilities 

nroff(l),  man(7),  cstrip,  txman,  blist, 
clist,  mtf  utilities 


1.3  HARDWARE/SOFTWARE  ENVIRONMENT 

RELBET  4.0  assumes  the  following  hardware  configuration: 

o Hewlett  Packard  9000  Computer  model  540 
o Hewlett  Packard  7935  440  Megabyte  disk  drives 
o Hewlett  Packard  150  computers  as  terminals 
o Hewlett  Packard  9872B  plotter  for  plots 
o Hewlett  Packard  7970  9 track  1600  bpi  tape  drive. 

RELBET  4.0  assumes  the  following  software  environment: 

0 RELBET  4.0 

o HPUX  operating  system  version  5.1 
o DISSPLA  Graphics  Library. 


1.4  TERMINOLOGY  AND  CONVENTIONS 

Terms  are  generally  used  in  the  sense  of  UNIX.  In  the  following,  program 
refers  to  an  executable  object.  When  a distinction  between  an  interpreted 
shell  program  and  a compiled  and  linked  program  is  needed,  the  terms  shell 
program  or  binary  program  are  used  respectively.  The  term  processor  is  also 
used  to  mean  a binary  program.  The  term  routine  means  a C function  or  a 
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FORTRAN  routine.  Routines  correspond  to  source  and  relocatable  code.  They 
are  separately  compiled  but  not  linked.  Thus  there  is  a distinction  between 
driver  routines  and  executable  programs  that  results  from  linking.  The  terms 
directory  and  file  have  the  same  meaning  as  in  UNIX.  The  term  module  is  used 
in  a descriptive  sense  to  indicate  a set  of  related  routines.  The  term 
package  is  also  used  descriptively.  It  indicates  a set  of  related  routines, 
data  structures,  or  even  programs.  The  term  context  is  used  to  indicate 
information  related  to  variables  or  subroutines  defined  elsewhere,  as  well  as 
sizing,  format,  and  defined  type  information. 

The  following  lexical  conventions  are  used: 

Program  and  File  Names:  Bold  font  denotes  program  and  file  name  within 
text  discussion. 

Terminal  Display:  Terminal  screen  print  examples  are  always  indented  and 
separated  from  the  discussion.  Bold  font  denotes  user  input  and  regular 
font  denotes  program  output.  Two  lines  consisting  of  a single  indented 
colon  indicate  an  omission  of  several  lines  of  text.  The  elipsis  (...) 
indicates  a omission  of  text  on  a given  line. 


Flow  charts  use  the  following  symbols: 


o 


Processor  Activity 


Binary  File 


Text  File 


Display,  e.g..  Printer  Plot 


o 


User  Knowledge 
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3.0  FUNCTIONAL  DESCRIPTION 


This  section  presents  a functional  description  of  the  execution  of  RELBET 
4.0.  The  description  is  at  the  level  of  major  processing  functions  and  will 
identify  the  various  programs  and  “shell  scripts"  or  run  streams  which  one 
executes  to  accomplish  each  function.  The  overall  process  is  first  described 
and  then  the  major  steps  examined  in  more  detail.  Section  5.0  of  the  User's 
Manual  provides  a detailed  example  of  the  process.  The  following  discussion 
makes  parenthetical  references  to  the  appropriate  subsection  of  Section  5.0. 


3.1  GENERAL  OVERVIEW 

The  RELBET  production  procedure  consists  of  five  basics  steps: 

o Data  Collection 
o Input  Data  Formatting 
o Input  Data  Preparation 
o Trajectory  Estimation 
o Generation  and  QA  of  Output  Products. 

Figure  3.1.1  summarizes  this  activity. 

The  activity  begins  with  the  collection  of  pertinent  mission  requirements  and 
parameters.  These  are  used  to  request  post-flight  telemetry  products  and  to 
update  a data  base  of  standard  program  inputs.  This  preparation  activity  is 
primarily  manual  and  does  not  utilize  any  of  the  RELBET  programs. 

The  first  actual  processing  phase  begins  with  the  receipt  of  telemetry  data. 
The  downlist  telemetry  comes  in  the  form  of  Computer  Compatible  Tapes  (CCT's). 
Various  RELBET  programs  are  used  to  reformat  the  CCT  into  files  accessible  to 
the  various  RELBET  processors.  These  files  contain  information  such  as 
vehicle  attitude  data,  relative  observation  data,  and  sensed  velocity  data. 
This  step  also  transforms  observation  data  into  the  RELBET  reference  frames 
and  edits  data  according  to  the  onboard  data  good  flags. 

Various  specialized  quality  assurance  (QA)  programs  support  the  next 
processing  phase,  data  preparation.  During  this  activity  one  checks  the 
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DATA  COLLECTION 


Figure  3.1.1.  RELBET  Production  Overview 
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overall  quality  of  the  downlist  for  basic  telemetry  difficulties  such  as 
dropouts  or  invalid  data.  If  the  number  of  difficulties  are  excessive,  a 
request  for  replacement  CCT's  may  be  made.  This  phase  further  examines  the 
"raw"  telemetry  data  and  edits  gross  outliers.  Precise  times  for  pertinent 
events  such  as  attitude  maneuvers  or  tracking  intervals  are  also  identified. 
Such  information  is  useful  in  resolving  anomalies  that  may  occur  in  subsequent 
processing.  At  the  completion  of  this  phase,  one  has  determined  that  the 
input  data  are  usable  and  and  has  generated  information  for  later  review  and 
analysis. 

The  next  phase  deals  with  estimating  the  relative  trajectory.  One  also  gives 
the  quality  and  consistency  of  the  data  greater  scrutiny  during  this  phase. 
During  this  process  a Kalman  filter  processes  the  telemetry.  The  output  of 
the  filter  is  reviewed  to  detect  various  anomalies.  These  anomalies  are  then 
either  corrected  or  accounted  for  by  correlating  them  with  specific  events 
that  are  known  to  cause  problems.  When  satisfactory  performance  with  the 
Kalman  filter  is  obtained,  its  solution  estimates  are  processed  with  a 
"smoother"  program  to  obtain  a "Best  Estimate  of  the  Relative  Trajectory" 
(RELBET). 

During  the  final  processing  phase  the  required  output  products  are  assembled 
from  the  various  refined  estimates  and  downlist  telemetry.  This  activity  is 
supported  by  a variety  of  computational,  formatting  and  quality  assurance 
programs. 


3.2  CCT  DATA  FORMATTING 

Before  it  can  be  used,  the  input  telemetry  data  must  be  checked  and 
reformatted  into  a format  accessible  by  the  RELBET  processors. 

The  major  source  of  input  data  for  the  RELBET  process  is  the  downlist 
telemetry  contained  in  the  CG011X  CCT  (Computer  Compatible  Tape).  (CG011X  is 
a particular  shuttle  data  product  generated  for  each  mission.)  In  general  the 
periods  of  interest  are  long  enough  that  several  CCT's  are  required.  These 
must  be  reformatted  and  merged  into  files  with  the  format  used  by  the  RELBET 
processors.  Figure  3.2.1  depicts  this  process.  The  dwnfint  program  strips 
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Figure  3.2.1.  Format  CCT 


required  parameters  from  the  CCT,  checks  them  for  validity,  and  generates  time 
ordered  binary  files  containing  properly  scaled  parameters  (5.2.1).  In  doing 
this  it  identifies  and  extracts  the  homogeneous  data  buffer  created  by  the 
onboard  rendezvous  navigation  program.  This  buffer  is  generated  at  the 
navigation  cycle  frequency  (about  a quarter  of  a Hertz)  and  downlisted 
asynchronously  at  a frequency  of  about  one  Hertz.  Note  that  several  files  may 
be  produced  from  single  CCT,  each  file  with  its  particular  contents.  The 
following  files  are  required  for  later  processing: 


o Attitude  file:  contains  selected  quaternions  and  is  used  to  determine 


nrhit.pr  AttitiiHa 


Tho  fftllnuinn  HicrneeiAn 

■ IIV  • V I • Vfl  I MJ|  U > ■ VII 


uic  ui/u i cv  i aui  On 


The  fol  1 owi ng 


"AH"  for  this  file. 

Observation  file:  contains  relative  observations, 

discussion  uses  the  abbreviation  "OBS"  for  this  file. 

Sensed  velocity  file:  contains  selected  sensed  velocities  for  use  in 

propagating  the  orbiter  through  burns.  The  following  discussion  uses 
the  abbreviation  “SVEL"  for  this  file. 

Vehicle  ephemeris  files:  contain  on-board  state  estimates  that  are 

used  primarily  for  analysis  and  to  obtain  initial  estimates.  The 
following  discussion  uses  the  abbreviations  "OEPH"  and  "TEPH" 
respectively  for  the  orbiter  and  targer  ephemerides. 

SENSOR  Information  File:  contains  miscellaneous  data  required  for 

generating  the  SENSOR  tapes. 


Several  CCT's  are  usually  needed  to  encompass  an  entire  mission  segment  and 
dwnfmt  handles  only  one  CCT  at  a time.  Thus  the  telemetry  for  a mission 
segment  usually  involves  multiple  telemetry  files  for  each  of  the  above 
types.  Subsequent  processors  expect  only  one  file  of  each  type.  Thus  it  is 
neccessary  to  merge  the  various  files  together.  The  shell  program  run_gbfcoa 
will  merge  any  number  of  files  together  (5.2.2). 


The  onboard  systems  associate  a data  good  flag  with  each  observation.  If  this 
flag  indicates  that  the  current  observation  is  bad  then  the  onboard  filter 
does  not  process  the  datum.  The  shell  program  run__obsedit  edits  the  OBS  file 
for  such  data  (5.2.3).  This  prevents  the  RELBET  filters  from  processing  bad 
data.  The  radar  angles  as  downlisted  are  in  the  roll -pitch  frame  used  for 
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crew  display.  The  shell  program  runjrptost  converts  the  roll -pitch  angles  to 
shaft-trunnion  angles  (5.2.4).  The  latter  are  preffered  for  filtering  because 
they  theorectically  exhibit  statistically  independent  biases. 

At  the  conclusion  of  this  processing  phase  the  CCT's  have  been  formatted  into 
files  required  by  the  subsequent  processors. 


3.3  DATA  PREPARATION 

The  input  data  formatting  process  gets  the  telemetry  contained  in  the  CCT's 
into  the  RELBET  system.  Before  processing  the  raw  telemetry  with  the  filters 
or  generating  output  products  further  processing  is  neccessary.  Figure  3.3.1 
depicts  this  process.  It  involves  assessing  the  data  coverage,  editing  bad 
data  points,  and  identifying  events  and  anomalies  that  are  not  detected  while 
stripping  the  data.  One  then  saves  all  this  information  into  the  event  data 
base. 

Several  shell  programs  help  in  this  process.  The  shell  script  run_qacover 
summarizes  data  coverage  of  all  the  data  types  on  the  downlisted  observation, 
attitude,  and  sensed  velocity  files  (5.3.1).  These  files  are  analyzed  to 
determine  the  quality  of  the  CCT's.  If  coverage  is  not  complete,  the  Input 
Data  Formatting  must  be  repeated  with  a newly  requested  CCT.  If  it  is 
complete,  all  problems  associated  with  the  downlink  of  the  CCT's  have  been 
identified  and  handled. 

The  execution  of  the  shell  script  run_qadata  identifies  events  in  the  data  to 
help  in  assessing  filter  performance  later  in  the  processing  steps  by 
providing  text  files  and  some  data  files  in  gff  format  which  can  be  analyzed 
or  plotted  (5.3.2).  The  shell  program  run  noise  runs  the  noise  analysis 
procedure.  It  computes  noise  values  for  each  observation  type  and  enters  this 
value  into  the  proper  slot  of  the  observation  file  (5.3.3).  The  Kalman  filter 
needs  the  noise  value  for  its  processing.  The  program  run  noise  also 
generates  text  files  that  summarize  the  noise  information. 

One  then  uses  the  text  files  output  from  run_qadata  to  edit  the  attitude, 
sensed  velocity,  and  observation  files  for  bad  data.  Several  shell  programs 
facillitate  this  editing  process.  The  UNIX  sort  program  merges  the  text  files 
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output  by  these  programs  Into  the  event  data  base.  From  the  event  data  base, 
the  shell  program  runjsearch  (5.3.5)  extracts  information  relating  to  possible 
difficulties.  A knowledgeable  engineer  can  review  this  information  and 
identify  time  intervals  during  which  files  should  be  edited.  The  shell 
program  run_t1mespan  aids  in  preparing  the  time  intervals  (5.3.6).  One  uses 
the  program  filedit  to  edit  the  desired  files.  Two  shell  programs,  run 
edi trader  and  runjaditst  help  in  editing  the  radar  and  star  tracker  data. 

At  the  conclusion  of  the  data  preparation  phase,  one  has  edited  the  input  data 
and  created  a data  base  which  will  be  useful  for  correlating  problems  during 
a particular  time  period.  The  various  gff  files  may  be  plotted  for  more 
detailed  analysis  and  review  (5.3.7). 

Table  3.3.1  summarizes  the  various  QA  programs. 


Table  3.3.1.  QA  Programs 


Name 


Text  File 


Gff  File 


qaatt  identifies  attitude  manuevers 

and  bad  points  on  the  attitude 
file 

qaranjmp  identifies  inconsistencies 
in  range  and  range  rate  to 
detect  sudden  biases  or 
equipment  reconfiguration 

qastar  identifies  false  targets 

that  the  star  tracker  may 
have  locked  onto 


angular  momenta  and 
magnitudes  between  con- 
secutive attitudes 


star  file  containing  azi- 
muth, elevation,  and  angle 
for  each  star  tracker 
observation 


qasv  identifies  burns  as  jumps  in 

the  magnitudes  of  the  sensed 
acceleration  computed  from  the 
sensed  velocity  and  bad  data 

qanois  documents  the  noise  for  each 
observation  type 


sensed  acceleration  file 


noise  files  for  each 
observati on 
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3.4  TRAJECTORY  ESTIMATION 


Up  until  now  the  different  Input  Items  have  been  looked  at  more  or  less 
individually.  During  the  next  processing  phase  they  are  combined  together  to 
obtain  a best  Kalman  estimate.  Figure  3.4.1  depicts  this  process. 


The  program  sfilt  uses  a Kalman  filter  to  process  the  various  observation 
information  and  the  quality  of  the  estimate  is  assessed  (5.4.3).  The  programs 
sln2r1,  cmp2sg,  and  rlvsrl  aid  this  assessment.  The  display  programs  qplot, 
xqdisp,  and  gdisp  help  to  investigate  the  contents  of  gff  files  generated  by 
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In  general  there  will  be  various  spikes  and  violations  of 
different  success  criteria  (e.g.,  3-sigma  residuals,  excessive  Kalman  edits, 
etc.).  These  are  manually  correlated  with  possible  causes  and  corrective 
adjustments  are  effected  when  possible.  This  filter-evaluate-adjust  process 
continues  until  the  user  decides  that  no  further  refinements  are  merited. 


At  the  conclusion  of  this  phase,  the  best  Kalman  estimate  of  relative 
trajectory  has  been  obtained. 


Kalman  estimates  tend  to  contain  unrealistic  spikes  and  also  reflect 
uncertainties  due  to  looking  at  only  one  side  of  the  data  arc.  A smoother 
algorithm  is  used  to  remove  the  spikes  and  Improve  estimates  by  considering 
both  sides  of  the  data  arc.  The  smoother  program  smooth  processes  the  results 
of  the  best  Kalman  estimate.  The  results  of  this  process  are  compared  with 
the  Kalman  estimate  with  the  aid  of  the  programs  s1n2rl,  cmp2sg  , and  rlvsrl 
and  the  various  display  programs.  If  there  is  a large  discrepancy  between  the 
smoothed  and  Kalman  estimates  further  adjustments  may  be  neccessary.  When  a 
satisfactory  smoothed  estimate  is  obtained  the  program  sln2rl  extracts  the 
relative  trajectory  information  from  the  smoothed  solution. 

At  the  conclusion  of  this  processing  phase  the  best  estimate  of  relative 
trajectory  has  been  obtained. 
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Figure  3.4.1.  Trajectory  Estimation 
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3.5  PRODUCTS  GENERATION 


When  suitable  quality  telemetry  data  and  trajectory  estimates  have  been 
obtained,  the  output  ancillary  products  are  generated.  Figure  3.5.1  depicts 
the  process  for  the  Ancillary  Data  Products.  The  program  prodx  is  used  to 
compute  the  required  parameters  (5.5.2).  The  program  qatape  is  used  to  read 
the  product  tape  and  perform  a check  of  its  contents  (5.5.3). 

Other  formatting  programs  such  as  stop,  flche,  and  mktape  are  available  for 
generating  other  products  such  as  the  SENSOR  tapes  and  microfiche  print. 
Figure  3.5.2  depicts  the  process  for  creating  the  SENSOR  tapes:  the  SIT 

(SENSOR  Input  Tape)  and  the  SET  (SENSOR  Environment  Tape).  The  final  report 
is  obtained  by  manually  assembling  various  plots  and  tables  obtained  in 
previous  processing  (5.5.5). 

RELBET  processing  is  done  when  all  identified  products  have  been  delivered. 
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AVAILABLE 


Figure  3.5,2.  SENSOR  Tape  Construction 
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4.0  DESIGN  OVERVIEW 


The  RELBET  system  was  envisioned  as  a set  of  general  purpose  analysis  tools 
that  would  be  flexible,  easily  Integrated,  and  easily  maintained.  The  result 
is  a design  that  stresses  modularity,  functionality,  and  commonality.  Some 
key  feaures  of  the  design  and  implementation  are: 

o Isolation  of  logic  and  data  to  well  defined  routines  or  blocks 
o Data  structuring  via  blocks  of  functionally  related  variables 
o Extensive  use  of  include  directives  to  provide  consistant  context 
o A common  library  of  utility  routines  organized  in  functional  modules 
o A standardized  binary  file  format  that  facillitates  interprogram 
interfaces 

o A standardized  input  scheme  (1 input)  that  reflects  data  structuring. 

In  the  following  we  expand  the  above  and  point  out  other  general  features  that 
might  not  be  immediately  evident  from  reading  the  source  code  or  the 
appendices. 


4.1  BASIC  PROGRAM  STRUCTURE 

The  RELBET  System  includes  both  binary  and  shell  programs.  The  main  criterion 
for  allocating  whether  logic  occurs  in  a shell  or  binary  program  is  that 
binary  programs  should  be  both  simple  and  functionally  specific.  Shell 

scripts  are  used  to  tie  together  programs  for  more  complicated  applications. 
Thus  instead  of  providing  a single  program  with  multiple  user  options,  say 
different  data  type  QA  options,  separate  programs  for  each  option  are 
provided.  This  approach  has  two  major  benefits.  First  the  logic  of  a single 
program  is  usually  substantially  reduced  since  it  need  only  deal  with  a 
particular  case.  Secondly  the  user  is  not  restricted  to  the  logic  in  an 

executive  when  combining  the  various  options  together. 

Thus  one  may  identify  two  levels  on  which  the  programs  are  put  together,  i.e., 

integrated:  that  of  shell  programs  and  that  of  binary  programs.  The  shell 

programs  integrate  binary  programs  together  and  control  specific  applications 
such  as  data  stripping  or  product  generation.  The  shell  programs  deal  with 
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binary  programs  and  particular  files.  At  this  level  one  may  view  the  files  as 
information  objects  and  the  binary  programs  as  functions  that  change  or  filter 
the  files.  Input  text  files  provide  the  detailed  user  interface. 

The  majority  of  the  compiled  software  for  RELBET  is  written  in  HP  FORTRAN  77 
using  BOX.  The  remaining  is  written  in  C or  in  FORTRAN  using  ratfor.  These 
programs  make  use  of  a library  of  utility  routine  modules.  This  means  that  the 
programs  share  many  routines  and  exhibit  a large  commonality  in  techniques. 
Furthermore  logic  is  generally  isolated  to  a unique  location  rather  that 
duplicated  in  many  locations.  Data  structuring  and  access  is  with  a standard 
set  of  blocks  of  functionally  related  variables  and  parameters.  These  blocks 
are  maintained  in  their  separate  files  and  are  accessed  with  the  compiler 
include  directive. 


The  binary  programs  generally  consist  of  a driver  and  some  specific  routines 
that  access  the  standard  utility  routine  library.  To  a large  extent,  common 
blocks  and  context  files  pass  information  between  the  utility  routines.  To 
use  a metaphor,  the  utility  modules  provide  interchangeable  components,  the 
drivers  provide  a framework,  and  the  common  and  context  files  provide  the 
glue.  Note  that  a given  program  generally  does  not  use  all  modules  although 
some  modules  are  heavily  used,  e.g..  Files  and  Input.  Also  note  that  some 
modules  invoke  routines  from  other  modules  so  that  there  is  a hierarchal 
dependency  among  the  modules. 


4.2  RELBET  STANDARD  FILE  FORMATS 

The  main  method  of  passing  large  amounts  of  data  between  RELBET  processors  is 
through  the  use  of  binary  files  with  a standardized  formats  that  are  generi- 
cally  referred  to  as  the  RELBET  format.  This  provides  a standard  consistant 
mechanism  for  interprogram  communication.  There  are  actually  two  basic 
formats:  the  gff  (general  format  file),  and  the  gb  (general  binary)  format. 
Both  consist  of  a fixed  size  header  record  followed  by  data  records.  They  are 
more  or  less  equivalent  with  the  major  differences  envoi ving  the  use  of 
certain  header  parameters  and  the  size  of  allowable  records.  Appendix  I 
discusses  the  file  formats  in  detail.  Routines  in  the  Files  directory  provide 
access  to  them.  The  files  in  the  Parameters  directory  and  the  C header  file 
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Gbfiles.h  provide  information  on  file  related  data  structures.  Refer  to 
Appendix  I for  additional  information  on  specific  gff  file  formats  and  to 
Appendix  III  for  information  on  the  low  level  routines. 

WARNING:  In  order  to  maintain  consistancy  and  simplify  maintenance,  a 

programmer  should  not  access  files  directly. 

NOTE:  RELBET  processors  are  not  sensitive  to  the  dictionary  of  frame 

variables  found  on  the  file  headers  nor  do  they  necessarily  place  the  GFF  id 
in  the  header  as  do  some  versions  of  gff  routines. 


4.3  INCLUDE  FILES 

A standard  set  of  files  provide  context,  sizing,  and  design  dependent 
parameters  such  as  type  declarations,  data  flag  values,  and  file  formats.  The 
directory  Parameters  contains  FORTRAN  parameter  statement  blocks,  and  the 
directory  Linklib  provides  C header  or  ".h"  files.  The  source  uses  "include" 
statements  to  access  them.  Appendix  II  provides  details. 

The  main  vehicle  for  passing  Information  between  the  various  subroutines 
making  up  FORTRAN  and  ratfor  programs  is  through  FORTRAN  common.  The  common 
blocks  are  contained  in  the  directory  Mtfcommon  and  include  dimension,  type 
and  commented  definitions  for  each  variable  in  the  named  common.  Note  that 
the  MTF  utilities  are  available  for  their  maintenance. 

Many  of  the  common  blocks  have  defaults  for  some  of  the  variables.  These  are 
provided  using  FORTRAN  data  statements  associated  with  each  named  common. 
These  data  blocks  appear  in  the  block  data  subroutines  associated  with  the 
various  programs  and  are  in  the  directory  Ntfdefault. 

Many  of  the  common  blocks  have  user  input  available  for  some  of  the 
variables.  The  common  inputs  are  accessed  by  the  user  though  a set  of  C 
language  routines  in  the  directory  Linput.  The  interface  calls  between  the 
FORTRAN  and  linput  routines  are  done  on  a variable  by  variable  basis,  and  the 
includes  associated  with  the  interface  are  under  the  directory  Mtfinput. 
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The  directory  Parameters  contains  various  "parameter"  declarations.  These 
deal  primarily  with  FORTRAN  and  ratfor  file  I/O  routines.  These  versions  are 
basically  copies  of  one  another  with  appropriate  changes. 

The  C language  routines  pass  information  to  each  other  by  the  use  of  the  data 
structures  and  typedefs.  The  definitions  of  these  objects  are  normally  found 
in  header  files  (.h  files)  which  are  included  in  the  C routines  and  are  listed 
under  Linklib. 

All  the  include  files  are  contained  in  Appendix  II. 


4.4  SUBROUTINE  MODULES 

Modules  group  together  routines  with  related  functions  such  as  coordinate 
transformations  or  matrix  operations.  Routines  unique  to  a given  program 
receive  their  own  module.  In  general,  a module  is  shared  by  many  programs. 
However,  a particular  piece  of  logic  is  isolated  to  a single  routine.  The 
directories  reflect  the  modular  organization.  Section  5.0  provides  an 
overview  of  the  directories  and  the  modules.  Appendix  III  provides  a synopsis 
of  the  contents  of  the  modules  and  the  routines.  It  also  provides  a cross 
reference  between  identifiers  and  modules.  Appendix  IV  provides  source  code. 


4.5  LINPUT  INPUT  SCHEME 

The  1 input  input  scheme  provides  a standard  user  interface.  The  mtf  utility 
ratfuser  generates  blocks  of  input  parameters  in  the  Mtf input  directory  from  an 
associated  mtf  text  file.  The  "xx"  routines  provide  the  interface  between  the 
input  text  and  the  common  blocks. 


i 
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5.0  DIRECTORY  STRUCTURE 


The  RELBET  directory  hierarchy  structure  is  quite  simple:  a single  master 
directory  with  about  40  subdirectories.  Each  of  these  subdirectories  contains 
a group  of  closely  related  files.  The  basic  benefit  of  this  approach  is  that 
it  greatly  simplifies  relative  pathnames  for  includes.  For  the  purpose  of 
discussion,  however,  it  is  convenient  to  group  directories  as  to  their 
contents  or  function.  The  directories  accordingly  fall  into  the  following 
major  groups: 

o Control  Directories  that  contain  executables  and  input  data 
o Program  Directories  that  contain  program  unique  code 
o Context  Directories  that  contain  data  structure  information  such  as 
common  blocks  and  parameters 

o Utility  Directories  that  contain  general  purpose  utility  routines 


5.1  CONTROL  DIRECTORIES 

These  directories  contain  the  executable  binary  programs,  shell  scripts,  and 
program  maintenance  directives  and  utilities. 


Control 

Executable  and  production  shell  scripts 

Make 

Make  directives  used  to  recreate  executables 

Test 

Sample  inputs  and  shell  scripts 

Tools 

Maintenance  tools 

Manual 

Program  user  manuals 

Pmanual 

Routine  Manuals 

5.2  PROGRAM  DIRECTORIES 

Table  5.1  lists  those  directories  associated  with  particular  programs  or 
executable  objects.  In  general  a program  is  matched  with  the  directory 
containing  its  driver  and  other  routines  specific  to  that  application.  Such 
directories  are  referred  to  as  program  directories. 
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Table  5.1.  Program  Directories 


Downfor 

dwnfmt 

Downlist  Formatter 

rptost 

Roll /pitch  to  shaft  trunnion 
observation  convention 

Filter 

sfilt 

Kalman  filer 

smooth 

Smoothing  Filter 

Fich 

fiche 

Create  microfiche 

Fman 

cmp2sg 

Compare  state  difference  to  sigma 

eph2rel 

Convert  ephemerides  to  relative  trajectory 

filedit 

File  editor 

gbfcom 

Combine  gff  files 

mkinit 

Make  the  ini t input  block 

obsnoi s 

Place  noise  data  on  obs  file 

qaatt 

QA  the  attitude  file 

qacover 

QA  the  data  coverage 

qanoi s 

QA  the  data  noise 

qaranjmp 

QA  the  range  observations 

qastar 

QA  the  star  tracker  obs 

qasv 

QA  the  sensed  velocity 

rdwt 

Read  file  then  write  file 

read  set 

Read  SET  file  and  print 

readmit 

Read  SIT  file  and  print 

rlvsrl 

Compare  relative  trajectory  files 

search 

Extract  data  from  event  data  base 

sln2rl 

Strip  relative  trajectory  from  solution  file 

stop 

Create  SENSOR  output  tapes 

Mktape 

mktape 

Create  output  UN I VAC  tape 

Noisanal 

ddnoi s 

Compute  obs  data  noise 

Numdi s 

gdisp 

General  gff  display 

xcmpar 

Compare  two  ephermeris  files 

xqdi sp 

State/Attitude  Parameter  Display 

Plot 

ascale 

Auto  scale 

plotx 

Graphic  display  of  gff  files 

Product 

prodx 

Special  product  generation 

Qatape 

qatape 

QA  special  product  tape 
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5.3  CONTEXT  DIRECTORIES 


These  directories  contain  text  files  which  are  "included"  in  FORTRAN  or  C 
language  routine  by  the  compiler  to  provide  context  information  and  data 


interfaces. 

Mtf 

MTF  master  textfiles 

Mtfcommon 

Common  declarations 

Mtfdefaul  t 

Data  statements  for  common  blocks 

Mtf input 

1 input  interface  calls  for  user  inputs  into  comnon 
blocks 

Parameters 

FORTRAN  and  ratfor  parameter  declarations 

Linklib 

Header  (.h)  files  used  by  C routines 

5.4  UTILITY  DIRECTORIES 

These  directories  comprise  a library  of  general  purpose  utility  routines. 
They  are  used  by  various  programs  as  opposed  to  the  Program  Directories  whose 
routines  are  not  required  by  any  other  program.  These  directories  generally 
form  packages  of  related  routines  and  are  accordingly  synonomous  with  modules. 


5.4.1  File  Routines 


Two  sets  of  gff  file  routines  are  provided  as  well  as  a set  of  FORTRAN 
interfaces  to  the  gff  routines  are  used  to  actually  invoke  the  gff  routines. 

Gff  FORTRAN  routines  modeled  after  the  orignal  gff 

routines 

Gbfile  C routines  allowing  more  general  access  to  creating 

and  processing  of  binary  files  used  by  Downfor  and 
Fman  processors 

Files  The  gff  interface  routines  used  by  the  programs 

Kalman,  Noisanal,  Numdis,  Plot,  Product,  and  Smooth 
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5.4.2  Input  Manipulation  Routines 


These  directories  are  involved  in  the  process  of  reading  and  preparing  user 
input  for  use  by  the  processors. 


Linput 
Li  sts 
Input 
Prompts 


The  C routines  which  form  the  linput  input  scheme  and 
the  interfaces  with  FORTRAN 

The  C routines  which  manipulate  the  data  structures 
used  by  linput 

FORTRAN  routines  for  preliminary  processing  and 
display  of  inputs  received  through  linput 
FORTRAN  routines  related  to  menu  generation 


5.4.3  Math  Routines 

These  directories  provide  general  mathematical  tools. 

Coordinate  Coordinate  transformation  routines 

Interpolate  Interpolation  routines 

Math  Trig,  matrix,  vector,  and  quaternion  routines 


5.4.4  Propagation  Routines 

These  directories  contain  routines  for  propagating  vehicle  trajectories. 

Celestial  Compute  positions  of  celestial  objects 

Force  Compute  forces  on  an  orbiting  body 

Propagate  Routines  to  initialize  and  drive  the  propagation 
process 


5.4.5  Data  Structure  Manipulations 

The  routines  in  these  directories  manipulate  various  types  of  data  or  data 
structures.  They  include  C and  FORTRAN  routines. 
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Charutil  Manipulate  FORTRAN  character  strings 

Dsputil  Gff  file  header  frame  data  displays 

Message  Provide  general  display  of  character  strings  related 

to  warnings  and  other  status  messages 
Stacks  Routines  to  manipulate  stack  data  structures 

Time  Routines  for  conversion  and  manipulation  of  time  data 


5.4.6  Observation  Computation 

This  directory  contains  routines  related  to  observation  processing.  The 
Kalman  and  Smoother  filter  programs  need  these  routines. 

Obs  Observation  computation  routines 
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6.0  INSTALLATION  AND  MAINTENANCE 


The  delivery  tape  is  a tape  archival  of  a configured  RELBET  directory 
installed  on  the  TRW  Houston  System  Services  HP9000  system  configuration. 
This  installation  reflects  the  system  environment  described  in  section  1.3, 
Hardware/Software  Environment,  of  this  manual.  The  installation  is  geared  to 
maintaining  configuration  control  and  reflects  a single  user  owner  of  all 
files.  The  maintenance  is  supported  by  a variety  of  standard  UNIX  and  TRW 
utilities. 


6.1  INSTALLATION 

To  install  the  delivery  tape  onto  your  system,  you  must  read  the  delivery  tape 
into  a directory  with  a proper  user  environment.  Depending  on  your  needs  and 
your  system  environment  you  may  also  need  to  reconfigure  the  user  environment 
and  device  access. 


6.1.1  Creating  a RELBET  Master  Directory 

All  files  on  the  tape  are  owned  by  user  Relbet  belonging  to  group  Relbet.  The 
examples  in  the  User's  Manual  and  all  the  shell  programs  assume  that  the 
directory  /users/Relbet/Master/Control  is  included  in  the  environment  variable 
PATH.  To  use  the  maintenance  tool  include  /users/Relbet/Master/Tools/Abs  in 
PATH.  The  login  shell  should  be  sh. 


6.1.2  Reading  the  Delivery  Tape 

The  delivery  tape  is  a 1600  bpi  9 track  tape  created  from  a configured  Master 
RELBET  directory  using  the  UNIX  tape  archival  utility  tar.  It  was  created 
with  the  command 

tar  cvf  /dev/tapeO  * 
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while  in  the  master  RELBET  directory.  You  can  use  a procedure  similar  to  the 
following  to  to  read  the  tape  into  your  master  own  RELBET  directory. 

cd  /users/Rel bet/Has ter 
#assign  tape 

mt  -t  /dev/tapeO  rew  #rewind 

tar  xvf  /dev/tapeO  #read  tape 

#release  tape 


6*1.3  Tailoring  the  System  to  Your  Environment 

The  delivered  version  may  not  reflect  your  system  environment  so  that  it  may 
be  neccessary  to  make  a few  alterations  before  proceeding.  The  most  likely 
candidates  are  display  devices  and  maintenance  tools. 


6. 1.3.1  Graphic  Display  Device  Configuration 

The  delivery  version  of  the  graphics  display  program  plotx  uses  the  DISSPLA 
graphics  library  with  devices  configured  for  the  HP150  terminals  and  the 
HP9872B  plotter.  The  make  directives  assume  the  DISSPLA  library  is  contained 
in  the  directory  /usr/lib/Disspla. 


6. 1.3. 2 Tools  Configuration 

The  directory  Tools/Abs  contains  links  to  executables  for  various  code 
generation  and  documentation  utilities.  The  source  for  these  is  found  under 
the  directories  in  Tools.  Note  that  this  directory  uses  multiple  links  to 
executables  and  documentation.  You  may  need  to  reconfigure  the  line  and  page 
length  controls  for  the  text  formatters  depending  upon  your  line  printer. 
These  controls  are  mostly  found  as  arguements  in  shell  scripts  such  as  the  fiat 
programs. 
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6.2  MAINTENANCE 


The  RELBET  System  was  designed  to  be  built  and  maintained  using  a variety  of 
UNIX  and  TRW  developed  tools.  The  following  provides  an  overview  of  their 
application.  Look  in  Tools/Manuals  for  further  information. 


6.2.1  Configuration  Control 

The  system  is  delivered  with  all  source  under  sees  cntrol  with  a base  version 
of  4.1.  The  tools  under  the  Tools  directory  are  also  under  secs  control,  but 
with  a base  version  of  1.1.  As  delivered  only  the  system  owner  (user  Relbet) 
can  alter  these  files  with  programs  such  as  delta.  This  scheme  is  designed  to 
support  a strict  configuration  control. 


6.2.2  Recreating  Programs 

The  directory  Make  contains  directives  for  the  UNIX  make  program.  To  create  a 
new  executable  run  make  with  the  appropriate  directives. 


6.2.3  Modifying  Common,  Input,  Default,  etc..  Blocks 

The  system  was  designed  to  use  the  MTF  (Master  Text  File)  utilities  to  create 
and  maintain  information  associated  with  blocks  of  related  variables.  To 
alter  one  of  these  objects,  modify  the  associated  MTF  file,  found  in  Mtf,  and 
run  the  appropriate  reformatting  program: 

mtf_blk  generates  FORTRAN  common  code 

mtf_npt  generates  1 input  invocations  for  input 

mtf_data  generates  FORTRAN  data  statements 

mtfjiser  generates  user  manual  entries 

Refer  to  the  documentation  section  below  for  how  to  generate  cross  references. 
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6.2.4  Documentation 


Listings  may  be  obtained  with  the  shell  program  srclist.  Note  that  this  shell 
uses  the  program  bxp  rather  than  the  standard  bllst  program  which  expands  all 
includes. 

Manual  entries  are  generally  available  in  the  txman  format  for  reformatting 
into  the  nroff/man  format.  Program  manuals  must  be  manually  produced. 
Routine  manuals  may  be  automatically  generated  using  the  programs  bcmanuals, 
boxstrip  and  cstrlp.  Cross  references  may  generated  with  procedures  like 
those  outlined  in  the  shell  scripts  mtfcmntoc  and  mtfnpttoc. 
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1.0  INTRODUCTION 


The  RELBET  System  uses  a variety  of  files  for  interprogram  communication.  The 
files  may  be  grouped  into  four  categories: 

o External  data  files  that  provide  system  input  or  output 
o Internal  files  used  by  the  System  to  communicate  between  programs 
o Display  files  generated  by  the  System 
o Data  base  files. 


2.0  EXTERNAL  FILES 

These  are  files  with  specific  formats  and  are  treated  as  foreign  by  the  RELBET 
System.  They  include  input  and  product  data  files. 

INPUT  Downlist  CCTs 

OUTPUT  RELBET  Product  Tape 

RELBET  Microfiche  Text 
SENSOR  Input  Tape  (SIT) 

SENSOR  Environment  Tape  (SET) 

2.1  DOWNLIST  CCT 

The  Downlist  File  contains  on-orbit  observation  data  and  time-tags  associated 
with  various  on-board  sensors.  By  collecting  and  reformatting  these  data 
RELBET  constructs  files  for  sensed  velocities,  attitudes  and  observations  as 
well  as  ephemerides  for  the  Orbiter  and  target  vehicle.  The  format  of  this 
tape  is  described  in  the  CCT  Interface  Control  Document,  reference  1 at  the 
end  of  the  Appendix. 


1-1 


2.2  RELBET  PRODUCT  FILE 


The  program  prodx  generates  the  RELBET  Special  Products  File.  It  utilizes 
trajectory  and  attitude  information  from  input  standard  format  files  to 
produce  data  product  files  containing  various  parameters  over  a specified  time 
interval.  Output  includes  print  describing  the  input  and  processing  status. 
Options  include  tape,  binary,  and  formatted  data  product  files. 


2.2.1  Binary  Data  Products  File 

The  user  has  the  option  to  generate  a binary  data  products  file  corresponding 
to  the  RELBET  Ancillary  Data  Products  described  in  Reference  2 at  the  end  of 
this  Appendix.  This  file  is  tape  or  mass  storage  according  to  the  user 
assignment.  This  multi -record  file  has  the  following  general  format: 

First  Record:  Identifier  record 

Second  Record:  Dictionary  record 

Succeeding  Records:  UNIVAC  binary  data  records 

END  OF  FILE 

The  first  record  has  a fixed  length  of  26  UNIVAC  single  precision  words.  The 
dictionary  and  data  records  all  have  the  same  length;  however,  this  length 
varies  depending  on  the  particular  parameters  desired.  Table  2.2.1  depicts 
the  overall  file  format. 

The  file  identifier  record  provides  the  user  with  information  to  identify  the 
file  contents.  The  format  is  shown  in  Table  2.2.2.  The  first  twelve  (12) 
words  constitute  a generic  identifier  message.  The  thirteenth  word  is  the 
alphabetic  "SPEC"  which  identifies  the  data  as  a special  BET  product.  The 
next  twelve  integer  words  specify  the  time  period  in  Greenwich  Mean  Time  (GMT) 
covered  by  the  data  records.  The  last  word  is  an  integer  defining  the  number 
of  parameters  in  the  dictionary. 
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Table  2.2.1.  File  Format 


RECORD  INFORMATION 

1 Tape  Identifier 

2 Parameter  Dictionary 

3 Data 

• • 

. Monotonically 

. Increasing 

. Time 

• • 

• • 

L Data 
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Table  2.2.2.  File  Identifier  Record  Format 


SINGLE 

WORD 

NUMBER 

DEFINITION 

TYPE 

1 

• 

48  character 

• 

identifier  message 

alphabetic  (single) 

• 

flight  no.,  data 

• 

etc. 

12 

13 

SPEC 

alphabetic  (single) 

14 

tape  start  GMT 
(first  data  record) 

YR 

15 

MO 

16 

DAY 

17 

HR 

integer  (single) 

18 

MIN 

19 

SEC 

20 

tape  stop  GMT 
(last  data  record) 

YR 

integer  (single) 

25 

SEC 

26 

number  of  parameters 
in  dictionary 

integer  (single) 
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The  dictionary  record  format  shown  in  Table  2.2.3  informs  the  user  of  the 
available  parameters  and  their  relative  location  on  the  data  records.  The 
first  word  is  an  integer  defining  the  number  of  parameters  in  the 
dictionary.  The  remaining  N alphabetic  words  identify  the  relative  location 
of  the  value  of  the  parameter. 

The  data  record  format  shown  in  Table  2.2.4  provides  the  double  precision 
parameter  data  in  a format  where  the  value  for  a parameter  is  in  the 
corresponding  word  location  of  that  parameter  symbol  in  the  dictionary 
record.  Note  that  the  first  word  constitutes  a last  record  flag. 


2.2.2  Output  Contents 


A formatted  Data  Products  file  will  be  generated  at  user  option.  This  file 
contains  the  same  parameters  at  the  same  frequency  as  the  binary  data  products 
file.  It  consists  of  a dictionary  description  followed  by  displays  of  each 
output  record. 


2.2.3  Parameter  Groups 

The  ancillary  parameters  are  divided  into  17  groups  with  the  option  to  include 
or  omit  each  group.  These  parameter  groups  are  described  in  Table  2.2.5. 
Note  that  the  continuation  flag  (entry  1,  dictionary  name  CONTINUE)  is  always 
included.  Although  any  subset  of  these  17  groups  may  be  selected,  a fatal 
error  will  result  if  none  are  chosen  or  sufficient  input  information  to 
compute  parameters  is  not  provided. 
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Table  2.2.3.  Dictionary  Record  Format 


Note: 


DOUBLE 

WORD 

NUMBER 

1 


2 


3 


VARIABLE  DEFINITION 

N = No.  of  parameters 
in  dictionary 

Symbol  for  parameter  in 
location  2 on  data 
record  (1st  variable) 

Symbol  for  parameter  in 
location  3 on  data 
record  (2nd  variable) 


TYPE 

integer  (double) 
alphabetic  (double) 
alphabetic  (double) 


N + 1 Symbol  for  parameter  in 

location  N + 1 on  data  alphabetic  (double) 
record  (Nth  variable) 

Value  for 

Variable  no.  1 is  the  double  precision  word  2 on  data  record. 

Variable  no.  2 is  the  double  precision  word  3 on  data  record. 

» 

Variable  no.  N is  the  double  precision  word  N + 1 on  data  record. 
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Table  2.2.4.  Data  Record  Format 


Note: 


WORD 

NUMBER 

VARIABLE  DEFINITION 

TYPE 

1 

ITYPE  0 = continuing 
records 

Double 

Precision 

1 = last  record 
in  file 

2 

Value  of  parameter  in 
location  2 on  dictionary 
record  (1st  variable) 

Double 

Precision 

3 

Value  of  parameter  in 
location  3 on  dictionary 
record 

Double 

Precision 

N + 1 

Value  of  parameter  in 
location  N + 1 on 
dictionary  record 

Double 

Precision 

N is  number  of  parameters  read  from  previous  dictionary  record. 
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Table  2.2.5 


Special  Products  Parameters 


PARAMETER 


VARIABLE 

GROUP 

SET 

NAME 

SYMBOL 

PARAMETER 

UNITS 

Time,  Greenwich  mean  (GMT) 

1 

SGMTY 

yr 

Orbiter  onboard 

SGMTMO 

month 

SGMTD 

day 

SGMTH 

hr 

SGMTM 

min 

SGMTS 

sec 

Time,  Greenwich  mean  (GMT) 

2 

GMTY 

yr 

Ground  - MCC  UTC 

GMTMO 

month 

GMTD 

day 

GMTH 

hr 

GMTM 

min 

GMTS 

sec 

Time,  ground  elapsed  (GET) 

3 

GETH 

hr 

GETM 

min 

GETS 

sec 

State  Vector,  Orbiter,  in 

4 

XM 

X 

km 

Aries  mean  of  1950 

YM 

y 

km 

Cartesian  coordinate 

ZM 

z 

km 

System 

XDM 

X 

km/ sec 

YDM 

yr 

km/sec 

ZDM 

z 

km/ sec 

State  Vector,  Orbiter,  in 

5 

SLVX 

X 

km 

free  flyer  LVLH 

SLVY 

y 

km 

Cartesian  coordinates 

SLVZ 

z 

km 

SLVXD 

• 

X 

km/ sec 

SLVYD 

# 

y 

km/sec 

SLVZD 

z 

km/sec 

State  Vector,  Orbiter,  in 

6 

SU 

u 

km 

free  flyer  UVW 

SV 

V 

km 

Cartesian  coordinates 

SW 

w 

km 

SUD 

u 

km/ sec 

SVD 

V 

km/ sec 

SUD 

w 

km/sec 

Attitude,  Orbiter,  Euler 

7 

ALPHU 

yaw 

deg 

angles,  body  axis 

BETAU 

pi  tch 

deg 

with  respect  to  Orbiter 

PHIU 

roll 

deg 

UVW  coordinates 
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Table  2.2.5.  Special  Products  Parameters  (Continued) 


VARIABLE 

SET 

PARAMETER 

GROUP 

NAME 

SYMBOL 

PARAMETER 

UNITS 

Attitude,  Orb iter.  Trans- 

8 

All 

n.d. 

formation,  Aries  mean 

A12 

n.d. 

of  1950  to  body  matrix 

A13 

matrix 

n.d. 

A21 

el ements 

n.d. 

A22 

row 

n.d. 

A23 

ordered 

n.d. 

A31 

n.d. 

A32 

n.d. 

A33 

n.d. 

Attitude,  Orbiter,  quatern- 

9 

Q1 

scalar  part 

n.d. 

ion,  Aries  mean  of 

Q2 

n.d. 

1950  to  body  axes 

Q3 

vector 

n.d. 

Q4 

n.d. 

Attitude,  rate,  Orbiter, 

10 

YD0TB 

rate  about  z 

deg/sec 

angular  velocities  and 

PDOTB 

rate  about  y 

deg/sec 

total  rate,  botty  about 

RDOTB 

rate  about  x 

deg/sec 

Aries  mean  of  1950 

TDOTB 

total  rate 

deg/ sec 

Cartesian  coordinates 

Look  angle,  and  angle  rates 

11 

AZ 

yaw 

deg 

orbiter  body  to  free 

EL 

pi  tch 

deg 

flyer 

RAZ 

yaw  rate 

deg/sec 

REL 

pitch  rate 

deg/sec 

Range,  and  range  rate. 

12 

RANGE 

range 

km 

between  vehicle 

RRATE 

range  rage 

km/sec 

reference  points 

Simulation  Flag 

13 

PSIM 

n.d. 

State  Vector,  free  flyer,  in 

14 

PMX 

X 

km 

Aries  mean  of  1950 

PMY 

y 

km 

Cartesian  coordinates 

PMZ 

z 

km 

PMXD 

X 

km/sec 

PMYD 

* 

km/sec 

PMZD 

z 

km/ sec 

State  Vector,  free  flyer,  in 

15 

PRMX 

X 

km 

Aries  mean  of  1950 

PRMY 

y 

km 

Cartesian  coordinates 

PRMZ 

z 

km 

relative  to  Orbiter 

PRMXD 

• 

X 

km/ sec 

PRMYD 

0 

y 

km/ sec 

PRMZD 

w 

Z 

km/ sec 
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Table  2.2.5.  Special  Products  Parameters  (Continued) 


PARAMETER 

VARIABLE 

GROUP 

SET 

NAME 

SYMBOL 

PARAMETER 

UNITS 

State  Vector,  free  flyer,  in 

16 

PU 

u 

km 

Orbiter  UVW  Cartesian 

PV 

V 

km 

coordinates 

PU 

w 

km 

PUD 

• 

u 

km/sec 

PVD 

* 

V 

km/ sec 

PUD 

w 

km/sec 

State  Vector,  free  flyer,  in 

17 

PLVX 

X 

km 

Orbiter  LVLH  Cartesian 

PLVY 

y 

km 

coordinates 

PLVZ 

2 

km 

PLVXD 

• 

X 

km/ sec 

PLVYD 

# 

y 

km/sec 

PLVZD 

* 

Z 

km/sec 
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2.3  SENSOR  INPUT  TAPE 


The  program  stop  (Sensor  Tape  Output  Processor)  generates  two  files  in  the 
Sensor  Input  Tape  (SIT)  and  Sensor  Environment  Tape  (SET)  formats.  These 
formats  are  described  in  reference  3 at  the  end  of  this  Appendix.  Both  are 
input  for  the  SENSOR  program.  The  SIT  file  contains  relative  observation, 
attitude,  sensed  velocity,  and  vehicle  state  information.  Each  record  has 
length  of  80  integer  words  and  consists  of  59  parameters  and  one  unused 
position  per  record.  Table  2.3.1  describes  the  format  and  also  provides 
associated  units  and  data  types.  Note  that  single  precision  and  integer  data 
displace  one  integer  word  and  double  precision  data  displaces  two  integer 
words. 


Table  2.3.1.  Data  Format  for  Sensor  Input  Tape 


PARAMETER 

SOURCE/ 

ENG. 

RECORD 

RECORD 

DESCRIPTION 

M/SID 

UNITS 

LOCATION 

TYPE 

1. 

Year 

V90W4749C 

Years 

1 

I 

2. 

Month 

II 

Months 

2 

I 

3. 

Day 

II 

Days 

3 

I 

4. 

Hour 

II 

Hours 

4 

I 

5. 

Minute 

II 

Mi  nutes 

5 

I 

6. 

Seconds 

ll 

Seconds 

6 

I 

7. 

GMT  Time 

II 

Seconds 

7 

D 

8. 

M50  Shuttle  - x 

V90H4277C-79C 

Feet 

9 

D 

9. 

- y 

II 

Feet 

11 

D 

10. 

- z 

II 

Feet 

13 

D 

11. 

- X 

V90L4281C-83C 

Feet/Sec 

15 

D 

12. 

- y 

II 

Feet/Sec 

17 

D 

13. 

- z 

II 

Feet/Sec 

19 

D 

14. 

COAS  Data  Good  Flag 

V90X4849X 

— 

21 

I 

15. 

COAS  Horizontal  Measurement 

V90U4847C 

Radians 

22 

S 

16. 

COAS  Vertical  Measurement 

V90U4848C 

Radi ans 

23 

S 

17. 

RNDZ  Radar  Angles  Flag 

V90X4901X 

— 

24 

I 

18. 

RNDZ  Radar  Roll 

V90U4893C 

Degrees 

25 

s 

19. 

RNDZ  Radar  Pitch 

V9074894C 

Degrees 

26 

s 

20. 

RNDZ  Range  Flag 

V90X4899X 

— 

27 

I 

21. 

RNDZ  Range  Measurement 

V90U4895C 

Feet 

28 

s 

22. 

RNDZ  Range  Rate  Flag 

V90X4900X 

— 

29 

I 

23. 

Rate  Measurement 

V90U4896C 

Feet/Sec 

30 

s 

24. 

Star  Tracker  Data  Good  Flag 

V90X4835X 

— 

31 

I 

25. 

Star  Tracker  Horiz.  Meas. 

V90U4833C 

Radians 

32 

s 

26. 

Star  Tracker  Vert.  Meas. 

V90U4834C 

Radians 

33 

s 

27. 

Nav.  Powered  Flight  Flag 

V90X4264X 

— 

34 

I 

28. 

M50  Accum.  - x 
(CG  ref.) 

V90L8927C-29C 

Feet/Sec 

35 

D 
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Table  2.3.1.  Data  Format  for  Sensor  Input  Tape  (Continued) 


PARAMETER 

SOURCE/ 

ENG. 

RECORD 

RECORD 

DESCRIPTION 

M/SID 

UNITS 

LOCATION 

TYPE 

31.  Current  Orbiter  Mass 

V90U4254C 

Slugs 

41 

D 

32.  M50  Target  - x 

V90H4287C-89C 

Feet 

43 

D 

33.  - y 

It 

Feet 

45 

D 

34.  - z 

II 

Feet 

47 

D 

35.  - k 

V90L4291C-93C 

Feet/Sec 

49 

D 

36.  - y 

It 

Feet/Sec 

51 

D 

37.  - z 

II 

Feet/Sec 

53 

D 

38.  M50  to  Body  Quaternion 

V95U0873C-76C 

— 

55 

S 

39. 

It 

— 

56 

S 

40. 

II 

— 

57 

S 

41. 

II 

— 

58 

S 

42.  DA  Threshold 

V90A4747C 

Micro  g sec 

59 

D 

43.  DAP  Jet  Flag 

V90X5185X 

— 

61 

I 

44.  Unused 

— 

62 

I 

45.  Star  Tracker  Matrix 

V90U4920C-28C 

— 

63 

S 

46. 

II 

— 

64 

S 

47. 

II 

— 

65 

S 

48. 

II 

— 

66 

S 

49.-53. 

67-71 

S 

54.  Star  Tracker  Time-tag 

V90W4837C 

Seconds 

72 

D 

55 . COAS  Matri x 

V90U4857C-65C 

— 

74 

S 

56. 

II 

— 

75 

S 

57. 

It 

— 

76 

S 

58. 

It 

— 

77 

S 

59.-63. 

78-82 

S 

64.  COAS  Time-tag 

V90W4853C 

Seconds 

83 

D 

65.  Rendezvous  Radar  Quaternion 

V90U4829C-32C 

— 

85 

S 

66. 

II 

— 

86 

S 

67. 

It 

— 

87 

S 

68. 

II 

— 

88 

S 

69.  Rendezvous  Radar  Time-tag 

V90W4841C 

Seconds 

89 

D 
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2.4  SENSOR  ENVIRONMENT  TAPE  (SET) 


Each  record  has  length  of  104  integer  words  and  contains  64  downlisted 
parameters  and  one  unused  space  ordered  as  specified  in  Table  2.4.1.  The 
table  also  provides  associated  units,  and  data  types.  Note  that  single 
precision  and  integer  data  displace  one  integer  word  and  double  precision  data 
displace  two  integer  words. 
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Table  2.4.1.  Data  Format  for  Sensor  Environment  Tape 


PARAMETER 

SOURCE/ 

ENG. 

RECORD 

FSSR  NAME 

M/SID 

UNITS 

LOCATION 

TYPE 

1. 

DA. THRESHOLD 

V90A4747C 

f/s 

1 

S 

2. 

DVDISP(l) 

V90L5181C 

f/s 

2 

S 

3. 

DVDISP(2) 

V90L5182C 

f/s 

3 

S 

4. 

DVDISP(3) 

V90L5183C 

f/s 

4 

S 

5. 

E(l,l) 

V90U4006C 

n 

5 

D 

6. 

E(2,2) 

V90U4027C 

n 

7 

D 

7. 

E(  3 ,3 ) 

V90U4047C 

n 

9 

D 

8. 

E(4,4) 

V90U4067C 

n 

11 

D 

9. 

E(5,5) 

V90U4087C 

n 

13 

D 

10. 

E(6,6) 

V90U4108C 

n 

15 

D 

11. 

E(l,2) 

V90U4007C 

n 

17 

D 

12. 

E( 1 ,3) 

V90U4008C 

n 

19 

D 

13. 

E( 1 ,4) 

V90U4009C 

n 

21 

D 

14. 

E(l, 5) 

V90U4011C 

n 

23 

D 

15. 

E(l,6) 

V90U4012C 

n 

25 

D 

16. 

E(2,3) 

V90U4028C 

n 

27 

D 

17. 

E(2,4) 

V90U4029C 

n 

29 

D 

18. 

E(2,5) 

V90U4030C 

n 

31 

D 

19. 

E(2,6) 

V90U4031C 

n 

33 

D 

20. 

E(3,4) 

V90U4048C 

n 

35 

D 

21. 

E(3,5) 

V90U4049C 

n 

37 

D 

22. 

E(3,6) 

V90U4050C 

n 

39 

D 

23. 

E(4,5) 

V90U4068C 

n 

41 

D 

24. 

E(4,6) 

V90U4069C 

n 

43 

D 

25. 

E ( 10,10 ) 

V90U4088C 

n 

45 

D 

26. 

NAV. ANGLES. AIF 

V90J4253C 

n 

47 

I 

27. 

NAV. RANGE. AIF 

V90J4268C 

n 

48 

I 

28. 

NAV.RDOT.AIF 

V90J4269C 

n 

49 

I 

29. 

NAV. SV. SOURCE. FOR. UPP 

V90X4977X 

n 

50 

I 

30. 

NAV.DO.COVAR.REINIT 

V90X4256X 

n 

51 

I 

31. 

NAV.DO.FI LTERED . TO . PROP 

V90X4975X 

n 

52 

I 

32. 

NAV.DO.FI LTR . SLOW . RATE 

V90X4257X 

n 

53 

I 
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Table  2.4.1.  Data  Format  for  Sensor  Environment  Tape  (Continued) 


PARAMETER 

SOURCE/ 

ENG. 

RECORD 

FSSR  NAME 

M/SID 

UNITS 

LOCATION 

TYPE 

33. 

NAV.DO.ORB.TO.TGT 

V90X4258X 

n 

54 

I 

34. 

NAV. DO. OV. UPLINK 

V90X4260X 

n 

55 

I 

35. 

NAV. DO. PROP. TO. FILTERED 

V90X4976X 

n 

56 

I 

36. 

NAV. DO. TGT. TO. ORB 

V90X4259X 

n 

57 

I 

37. 

NAV. DO. TV. UPLINK 

V90X426AX 

n 

58 

I 

38. 

NAV. ME AS. ENABLE 

V90X4262X 

n 

59 

I 

39. 

NAV. MM. CODE 

V90J4263C 

n 

60 

I 

40. 

NAV.PWRD.FLT.NAV 

V90X4264X 

n 

61 

I 

41. 

NAV.RR. ANGLES. ENABLE 

V90X4273X 

n 

62 

I 

42. 

NAV. ST. ENABLE 

V90X4274X 

n 

63 

I 

43. 

REND. NAV. FLAG 

V 93X6220X 

n 

64 

I 

44. 

T. CURRENT. FILT 

V90W4749C 

s 

65 

D 

45. 

TFOFF 

V90W4960C 

s 

67 

D 

46. 

TFON 

V90W4959C 

s 

69 

D 

47. 

T. ORB. STATE. UPDATE 

V94W3727C 

s 

71 

D 

48. 

T. TV. STATE. UPDATE 

V90W4939C 

s 

73 

D 

49. 

V.FORCE(l) 

V90U4956C 

LBF 

75 

S 

50. 

V.F0RCE(2) 

V90U4957C 

LBF 

76 

S 

51. 

V.F0RCE(3) 

V90U4958C 

LBF 

77 

S 

52. 

UNUSED 

78 

I 

53. 

T. LAST. FILT. TLM 

V90W4285C 

s 

79 

D 

54. 

R.FILT.TLM(l) 

V90H4277C 

f 

81 

D 

55. 

R.FILT.TLM(2) 

V90H4278C 

f 

83 

D 

56. 

R.FILT.TLM(3) 

V90H4279C 

f 

85 

D 

57. 

V.FILT.TLM(l) 

V90L4281C 

f/s 

87 

D 

58. 

V.FILT.TLM(2) 

V90L4282C 

f/s 

89 

D 

59. 

V.FILT.TLM(3) 

V90L4283C 

f/s 

91 

D 

60. 

R.TV.TLM(l) 

V90H4287C 

f 

93 

D 

61. 

R.TV.TLM(2) 

V90H4289C 

f 

95 

D 

62. 

R.TV.TLM(3) 

V90H4289C 

f 

97 

D 

63. 

V.TV.TLM(l) 

V90L4291C 

f/s 

99 

D 

64. 

V.TV.TLM(2) 

V90L4292C 

f/s 

101 

D 

65. 

V.TV.TLM(3) 

V90L4293C 

f/s 

103 

D 
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3.0  INTERNAL  FILES 


The  Internal  Files  provide  the  communi cation  between  programs  in  RELBET. 
RELBET  creates  these  files  as  outputs  from  various  programs.  User  editing  is 
possible  through  the  editing  processors.  All  internal  files  are  in  internal 
units  (meter,  kilogram,  second,  radian).  Internal  inertial  coordinates  are 
Aries  mean  of  1950  Cartesian,  although  other  systems  may  be  used  for  file 
storage  or  display. 


3.1  GENERAL  FORMAT 

Internal  RELBET  files  share  a common  overall  format  consisting  of  headers 
followed  by  data  records  that  are  called  frames. 


3.1.1  Format  Compatibility 

The  RELBET  internal  files  are  generally  compatible  with  the  gff  format 
described  below  and  in  reference  2.  However  some  differences  do  occur. 

Two  sets  of  file  routines  exist  in  RELBET  called  the  gff  and  gbfile 
routines.  The  gff  routines  manipulate  files  as  specified  in  reference  4.  The 
gbfile  routine  support  the  basic  design  of  the  so  called  gff  files,  however, 
they  do  not  utilize  the  dictionary  records  though  space  is  allowed  for 
compatibility,  and  they  do  not  set  the  program  name/version  number  parameter 
hcver  on  the  header  record.  In  fact  the  gbfile  routines  being  written  in  C do 
not  use  the  IOP  (I/O  packet  at  all).  Thus  non-RELBET  processors  which  read 
gff  files  may  not  be  able  to  read  files  created  by  the  gbfile  routines. 


3.1.2  Overall  File  Format 

A gff  file  is  defined  by  its  format.  There  are  two  definition  tables  in  the 
file,  the  header  and  the  dictionary.  The  header  provides  file  information  and 
the  dictionary  provides  data  information.  Following  the  header  and  dictionary 
is  the  data  itself.  Below  is  a diagram  of  a gff  file. 
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Description 

Header  (n  = number  of  header  records) 

Dictionary 
*beg 

data  frames  (m  = number  of  data  records 
*end 

All  records  have  the  same  record  length.  The  user  selects  the  record  length 
by  determining  the  required  (or  useful)  length  of  a data  frame.  The  Header 
must  contain  a fixed  number  of  information  words;  therefore,  the  number  of 
records  needed  for  the  Header  is  a variable. 

By  the  nature  of  its  structure,  the  Dictionary  consists  of  5 records.  The 
record  immediately  preceeding  the  string  of  data  records  is  filled  with  the 
work  "*beg",  and  the  last  record  is  filled  with  the  work  "*end“. 


Record 

l»n 

n+l,n+5 

n+6 

n+7 ,n+7+m 
n+7+m+l 


3.1.3  RELBET  Data  Frame  Formats 

Frames  are  of  a fixed  length  for  a given  file,  but  the  length  may  vary  between 
file  types.  Although  frame  formats  vary  from  file  type  to  file  type,  they  are 
composed  of  a fixed  format  header  portion  and  a data  portion.  The  standard 
frame  header  format  is  as  follows: 


Integer 

Word 

Type 

Contents 

1-2 

DP 

Time- tag 

3 

CHAR*4 

Frame  ID 

4 

I 

Edit  status 

The  formats  of  the  data  portions  are  discussed  under  the  individual  files.  As 
noted  above  the  Begin  and  End  Frames  contain  fill  data: 

"*beg"  and  ''*end"  respectively. 
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3.1.4  File  1/0  Packet 


The  file  I/O  packet,  iop,  is  a gff  communication  table  used  by  both  input  and 
output  routines.  This  table  carries  pertinent  file  data  across  read/write 
interfaces.  Table  3. 1.4.1  defines  the  41  integer  words  in  iop. 


Table  3. 1.4.1.  I/O  Packet  Contents 


Word  Label  Type 


Description 


1 


19 


20 


21 


22 


pname  c72  Name  of  gff  file  to  create  or  open. 

Pname  is  a user-defined  input  to  the  open  routines, 
gfnew  and  gfopen. 


punit  i 


pfrmsz  i 


phdrsz  i 


Unit  number  on  which  to  open  the  gff  file. 

Punit  is  a user-defined  input  to  the  open  routines, 
gfnew  and  gfopen. 

Record  length. 

This  will  be  the  record  length  in  integer  words  of  the 
gff  file  records.  The  record  length  will  also  be  stored 
in  the  file  header.  The  header  will  be  broken  into 

records  of  this  length  and  written  to  the  gff  file.  The 
record  length  is  a user-defined  input  to  the  create 
routine,  gfnew.  When  the  file  is  reopened,  the  open 
routine,  gfopen,  will  check  the  header  for  the  record 
length  and  then  open  the  file  with  the  proper  record 
length. 

Number  of  header  words. 

The  number  of  header  records  is  a constant  and  is,  at 
this  time,  90  words.  This  parameter  is  here  to  prevent 
hard  coding  of  the  header  size  in  the  various  gff 
routines.  The  number  of  header  records  is  also  stored 
in  the  file  header.  Phdrsz  is  set  in  the  open  routines, 
gfnew  and  gfopen. 


pcrec  i Current  record  number. 

Perec  points  to  the  current  record  in  the  gff  file. 
When  writing  to  the  file,  pcrec  points  to  the  last 
record  written.  When  reading  from  the  file,  pcrec 
points  to  the  last  record  read.  Pcrec  is  always 
current,  regardless  of  which  gff  routine  was  last 
used.  The  record  number  is  not  affected  by  the  display 
routines. 
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Table  3. 1.4.1.  I/O  Packet  Contents  (Continued) 

Word  Label  Type  Description 

23  prwflg  i Read/write  status. 

Prwflg  defines  the  r/w  ability  of  the  file  where  a value 
of  one  is  read  only,  and  a value  of  two  is  read/write. 
When  the  file  is  being  created  by  gfnew,  the  rwflg  is 
set  by  the  routine  to  a value  of  two.  When  the  file  is 
reopened  with  gfopen,  the  rwflg  is  a user-defined 
input.  Any  dependent  on  the  value  of  the  r/w  flag. 

24  pnrec  i Number  of  records  in  the  gff  file. 

Pnrec  is  always  current. 

25  pstat  i Error  code  returned  from  the  gff  routines. 

Pstat  can  contain  two  types  of  error  codes  - system  i/o 
errors  and  gff  errors.  If  the  error  is  a system  error, 
the  error  code  will  be  a 900  number.  If  the  error  is  a 
gff  error,  the  error  code  will  be  negative. 

The  possible  gff  errors  are: 

1.  trying  to  access  within  the  dictionary  or  the  header 

2.  trying  to  access  past  the  end  of  file 

3.  file  does  not  have  write  permission 

4.  invalid  time  requested 

26-27  ptoff  dp  Time  offset. 

All  timetags  (timetags  are  assumed  to  be  the  first 
parameter  in  the  data  frame)  stored  in  the  gff  file  are 
stored  in  seconds  since  base  time.  The  base  time  of  the 
file  is  stored  in  the  header.  The  base  time  of  one  gff 
file  does  not  have  to  be  the  same  base  time  of  any  other 
gff  files  used  in  a program,  and  it  does  not  have  to  be 
the  same  as  the  program  base  time.  The  time  offset  is 
the  difference  between  the  program  base  time  and  file 
base  time  (tbase  (prog)  - tbase  (file)).  Upon  writing  a 
record,  the  timetag  will  be  converted  from  seconds  since 
program  base  time.  The  time  offset  is  computed  in  the 
open  routines,  gfew  and  gfopen. 

28  ptype  c4  File  type. 

The  file  type  is  a user-defined,  four  character 
identifier  used  to  identify  the  type  of  data  in  the 
file.  It  is  an  input  to  the  create  routine,  gfnew,  and 
is  also  stored  in  the  header. 

29-33  pbdate  i(5) 


1-20 


Table  3. 1.4.1.  I/O  Packet  Contents  (Continued) 


Word  Label  Type  Description 

34-35  pbsec  dp  Base  date. 

The  base  time  is  stored  in  5 integer  words  and  one  dp 
word.  The  integer  words  are  the  year,  month,  day,  hour, 
and  minute;  the  dp  word  is  the  seconds.  All  timetags 
stored  in  the  file  are  stored  as  seconds  since  the  base 
date.  See  the  entry  for  ptoff  for  further 

information.  The  base  date  is  a user-defined  input  to 
the  open  routine,  gfnew. 

36-37  pstrt  dp  Start  time. 

This  is  the  time  of  the  first  data  record.  The  start 
time  Is  defined  when  the  *end  frame  is  written  to  the 
file  (gff  routine  gfend)  and  when  an  existing  gff  file 
is  opened.  If  a gff  file  is  changed,  the  start  time  is 
not  guaranteed  to  be  correct  until  the  *end  frame  is 
written.  The  start  time  is  stored  as  seconds  since  file 
base  time  and  is  also  stored  in  the  file  header. 

38-39  pstop  dp  Stop  time. 

This  is  the  time  of  the  last  data  record.  The  stop  time 
is  defined  when  the  *end  frame  is  written  to  the  file 
(gff  routine  gfend)  and  when  an  existing  gff  file  is 
opened.  If  a gff  file  is  changed,  the  stop  time  is  not 
guaranteed  to  be  correct  until  the  *end  frame  is 
written.  The  stop  time  is  stored  as  seconds  since  file 
base  time  and  is  also  stored  in  the  file  header. 

40  pnhrec  i Number  of  header  records. 

The  header  is  90  words  of  data  and  is  written  to  the 
file  “pfrmsz"  words  at  a time.  If  the  last  record  is 
not  full,  it  will  be  garbage  filled.  There  are  routines 
which  read  and  write  the  header.  The  number  of  header 
records  is  computed  from  phdrsz  and  pfrmsz  (nhrec  = 
int(hdrsz/frmsz  + .5))  in  the  create  routine,  gfnew. 
This  is  stored  in  the  header.  See  phdrsz  for  more 
details. 

41  pndict  i Number  of  dictionary  records. 

The  number  of  dictionary  records  is  a constant  5 
words.  This  parameter  is  here  to  prevent  hard  coding  in 
the  various  gff  routines.  The  number  of  dictionary 
records  is  also  stored  in  the  file  header.  Pndict  is 
set  in  the  open  routines,  gfnew  and  gfopen. 
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3.1.5  File  Header  Format 


The  file  header  consists  of  a set  of  records,  each  of  which  has  the  same  word 
length  as  the  data  records.  The  header  contains  90  (integer  size)  words  plus 
as  many  fill  words  as  are  needed  to  complete  the  last  header  record.  Table 
3. 1.5.1  summarizes  the  90  integer  words  in  the  header. 


Table  3. 1.5.1.  Header  Contents 


Word 

Label 

I m. 

Description 

1 

hnhrec 

i 

Number  of  header  records. 

See  iop  - pnhrec  for  a description. 

2 

htype 

c4 

File  type. 

See  iop  - ptype  for  a description. 

3-4 

hcdate 

c8 

Creation  data. 

When  a gff  file  is  created,  the  currect  data  is  stored 
as  the  creation  date  in  the  form  yy/mm/dd. 

5-8 

hcver 

cl6 

Program  used  for  creation. 

The  program  name  and  version  number  which  created  the 
gff  file,  along  with  the  version  of  the  gff  library  is 
stored.  The  suggested  form  is  "name-ver/gff-ver",  where 
name  is  the  name  of  the  program  (6  characters  max)  and 
ver  Is  the  version  In  the  form  Vn.m  (Ex:  trjpro- 
v2.2/gffl.O).  The  program  name  and  version  are  user 
inputs  to  the  create  routine,  gfnew,  and  the  gff  library 
verion  is  defined  by  the  gff  library  in  gfnew. 

9-34 

hcdes 

cl04 

Creation  description. 

The  creation  description  is  a user-defined  input  to  the 
create  routine,  gfnew. 

35-36 

hudate 

c8 

Update  date. 

Each  time  a gff  file  is  reopened  with  a r/w  status,  the 
current  date  is  stored  as  the  update  date.  When  the 
file  is  created,  the  update  date  is  the  same  as  the 
creation  date.  The  update  date  is  established  in  the 
close  routine,  gfcls. 

37-40 

huver 

cl6 

Update  program  name  and  version. 

See  HEADER  - hcver  for  a description. 
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Table  3. 1.5.1.  Header  Contents 


Word 

Label 

Im 

Description 

41-66 

hudes 

cl04 

Update  description. 

Each  time  a pff  file  is  reopened  with  a r/w  status,  the 
update  description  is  stored.  When  the  file  is  created 
the  update  description  is  set  to  the  creation 
description.  The  update  description  is  established  in 
the  close  routine,  gfcls. 

67-71 

72-73 

hbdate 

i(5) 

File  base  date. 

See  iop  - pbdate,  pbsec  for  a description. 

74-75 

hstrt 

dp 

Start  time. 

See  iop  - pstrt  for  a description. 

76-77 

hstop 

dp 

Stop  time. 

See  iop  - pstop  for  a description. 


78  hnrec  i Number  of  data  records  in  the  file. 

When  the  *end  frame  is  written  to  the  file,  the  number 
of  data  frames  is  computed  and  stored.  This  value  will 
be  correct  as  long  as  no  new  data  records  are  written 
after  the  *end  frame.  New  data  frames  appended  to  the 
file  will  automatically  overwrite  the  *end  frame,  if  one 
exists.  Note  that  this  is  not  exactly  the  same 

parameter  as  the  iop  parameter  pnrec.  In  the  iop,  this 
parameter  is  the  total  number  of  records,  whereas,  in 
the  header,  it  is  the  number  of  data  frames.  Hnrec  is 
set  when  the  *end  frame  is  written. 

79  hfrmsz  i Record  length. 

See  iop  - pfrmsz  for  a description. 

80-90  hspec  i File  specific  block. 

These  11  words  are  extra  header  space  in  case  the  user 
feels  the  need  to  put  more  in  the  header.  The  gff 
library  only  recognizes  its  existence;  it  does  nothing 
with  the  information.  The  block  is  a user-defined  input 
to  the  create  routine,  gfnew.  It  can  have  variables  of 
any  type  stored  within. 


3.1.6  Dictionary  Format 

The  dictionary  contains  the  definition  of  each  parameter  in  the  data 
records.  The  definition  is  defined  as  the  name  of  the  parameter,  its 
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dimension  and  type,  and  its  length  if  the  variable  is  character.  Note  that 
there  records  are  not  set  with  the  gbfile  routines,  however,  space  is 

allocated  for  them. 

The  dictionary  is  written  to  the  gff  file  when  the  file  is  created  by  the 

routine  gfnew.  The  dictionary  is  input  into  gfnew  in  the  following  format: 

character*20  dict(frmsz) 

where  frmsz  is  the  number  of  words  in  a record.  Each  dict(n)  is  the  entry  for 
a single  parameter,  and  each  entry  is  in  the  form  "ndtl",  where 

n is  the  parameter  name  (8  characters), 

d is  the  dimension  of  the  variable  (Ex:  3 or  3,3)  (8  characters), 
t is  the  variable  type  (i,l,r,c)  (1  character),  and 
1 is  the  length  of  the  variable  if  t=c  (3  characters). 

The  dictionary  is  stored  in  the  gff  file  transposed.  The  routine  gfdict 

returns  the  dictionary  in  the  c*20form.  The  dictionary  is  contained  in 
exactly  five  records  in  the  gff  file.  Each  dictionary  entry  (dict(n))  uses 
one  word  from  each  of  the  five  records,  such  that 

rec  1-2  contain  the  name  from  each  entry, 

rec  3-4  contain  the  dimension  of  the  variable, 

rec  5 contains  the  type  and  length  of  the  variable. 

Figure  3.1.6  shows  the  relationship  between  the  user-defined  dictionary  and 
the  file  dictionary. 
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| 

Figure  3.1.6.  User/File  Dictionary  Relationship 
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3.2.  SENSED  VELOCITY  FILE 


The  Sensed  Velocity  File  contains  time  tables  of  IMU  sensed  velocities 
experienced  by  a vehicle.  The  file  may  be  created  from  real  time  data  or 
simulated.  The  sensed  velocities  are  used  for  state  propagation.  Its  frame 
format  is  as  follows: 


Integer 

Word 

Type 

Contents 

1-4 

MIX 

Header 

5-10 

DP(3) 

Vector  for  Sensed  Velocity 

3.3  ATTITUDE  FILE 

The  Attitude  File  contains  time  tables  of  attitudes  experienced  by  a 
vehicle.  The  file  may  be  created  from  real  time  data  or  simulated.  The 
trajectory  processing  routines  use  the  attitudes  for  computing  relative 
trajectories  and  residuals.  Its  frame  format  is  as  follows: 

Integer 


Word 

Type 

Contents 

1-4 

MIX 

Header 

5-12 

DP(4) 

Quaternion  for  Attitude 

3.4  OBSERVATION  FILE 

The  Observation  file  contains  time  tables  of  observations  associated  with 
various  on-board  navigation  sensors.  The  additional  data  slot  is  used  by 
various  applications.  When  the  downlist  formatter  outputs  an  observation 
file,  it  places  the  onboard  data  good  flag  here.  The  Kalman  Filter  process 
expects  the  observation  noise  in  this  slot.  This  file  may  also  contain 
residuals  for  editing  or  display  purposes.  The  Observation  file  is  used  for 
relative  trajectory  estimation  and  residual  computations.  Its  frame  format  is 
as  follows: 
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Integer 

Word 

Jm. 

Contents 

1-4 

MIX 

Header 

5-6 

DP 

Additional  Data 

7-8 

DP 

Measurement 

9-10 

DP 

Residual 

3.5  EPHEMERIS  FILE 

An  Ephemeris  File  contains  the  inertial  trajectory  for  a vehicle.  This  file 

may  be  created  from  real 

time  data  or  generated  by  simulation.  Vehicle  states 

are  interpolated  from  thi 

s file.  Its  frames  have  the  following  format: 

Integer 

Word 

Type 

Contents 

1-4 

MIX 

Header 

5-10 

DP(3) 

Position  Vector 

11-16 

DP(3) 

Velocity  Vector 

3.6  IMU  ATTITUDE  FILE 

The  IMU  Attitude 

File  is 

used  by  the  IMU  processor  to  generate  a selected  or 

average  attitude 

file.  It  has  the  following  format: 

Integer 

Word 

Type 

Contents 

1-4 

MIX 

Header 

5-12 

DP(4) 

Quaternion  IMU-1 

13-20 

DP(4) 

Quaternion  IMU-2 

21-28 

DP(  ) 

Quaternion  IMU-3 

29-36 

DP(4) 

Quaternion  Selected 

37-38 

1(2) 

Source  of  Selection  (spare) 
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3.7  IMU  SENSED  VELOCITY  FILE 


The  IMU  Sensed  Velocity  File  is  used  by  the  IMU  Processor  to  generate  a 
selected  or  average  sensed  velocity  file.  It  has  the  following  frame  format: 

Integer 


Word 

Type 

Contents 

1-4 

MIX 

Header 

5-10 

DP(3) 

Vector  IMU-1 

11-16 

DP(3) 

Vector  IMU-2 

17-22 

DP(3) 

Vector  I MU-3 

23-28 

DP(3) 

Vector  Selected 

29-30 

1(2) 

Source  of  Selection  (spare) 

3.8  SOLUTION  FILE 

The  Solution  File  contains  such  information  as  current  solution  state 
estimates  and  statistics.  This  file  is  an  optional  product  of  the  Trajectory 
Processing  processors.  Frame  lengths  may  vary  from  file  to  file  depending  on 
the  options  exercised  by  the  processor,  however,  frame  length  is  fixed  in  a 
given  file.  The  solution  has  the  following  format: 


Integer 

Word 

1m. 

Contents 

1-4 

MIX 

Header 

5-4+2S 

D 

Solution  Vector 

5+2S-4+2S+D 

DP(C) 

Lower  Triangular  Covariance  by  Rows 

Where 

S = Solution  size 
D = S(S+l)/2. 
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3.9  RELATIVE  TRAJECTORY  FILE 


The  Relative  Trajectory  File  contains  relative  trajectory  information.  It  has 
the  following  frame  format: 


Integer 

Word 

Type 

Contents 

1-4 

MIX 

Header 

5-16 

DP  ( 6 ) 

Fiducial 

State 

17-28 

DP  ( 6 ) 

Relative 

State 

3.10  PLOT  DISPLAY  FILES 

Table  3.10.1  summarizes  the  various  options  for  output  parameters  from  the 
program  xqdisp.  Here  0 designates  the  first  vehicle  or  orbiter  state  vector, 
T the  second  vehicle  or  target  state  vector,  and  A the  attitude  of  the  first 
vehicle.  All  groups  consist  of  six  parameters.  The  coordinate  systems  are 
defined  in  the  Engineering  Manual  (Reference  9,  Section  2.0). 

Plot  file  parameters  are  in  internal  units.  For  printed  displays,  the  user 
may  specify  up  to  three  systems  of  units  for  length,  velocity,  angle,  time, 
mass,  force,  and  acceleration.  Parameter  groups  will  be  displayed  in  each  of 
the  specified  systems  of  units.  The  record  format  for  these  files  is  as 
follows: 


Integer 

Word 

Type 

Contents 

1-4 

MIX 

Header 

5-16 

DP(6) 

Coordi nates 

1-28 


Table  3.10.1.  Parameter  Groups 


NUMBER 

IE 

OBJECT 

COORDINATES 

REQUIRED 

INPUTS 

1 

SXYZ 

0 

M50  Cartesian 

0 

2 

SELT 

0 

M50  Elements 

0 

3 

SUVW 

0 

Target  UVW 

0,  T 

4 

SLVH 

0 

Target  LVLH 

0,  T 

5 

SSHL 

0 

Target  Shell 

0,  T 

6 

TXYZ 

T 

M50  Cartesian 

T 

7 

TELT 

T 

M50  Elements 

T 

8 

TIJYW 

T 

Orbiter  UVW 

0,  T 

9 

TLVH 

T 

Orbiter  LVLH 

0,  T 

10 

TSHL 

T 

Orbiter  Shell 

0,  T 

11 

TBOD 

T 

Orbiter  Spherical 

0,  T,  A 

12 

IREL 

T-0 

M50  Cartesian 

0,  T 

13 

EREL 

T-0 

M50  Elements 

0,  T 

14 

APYR 

A 

M50  Euler  Angles 

A 

15 

AUVW 

A 

Orbiter  UVW  Euler  Angles 

0,  A 

16 

RPRM 

T-0 

Range  and  Rate  Magnitudes 

0,  T 

In  column  5, 

A indicates  orbiter  attitude  needed 
0 indicates  orbiter  trajectory  needed 
T indicates  target  trajectory  needed 


1-29 


3.11  COAS  MATRIX  FILE 


This 

file  contains 

frames 

of  body  to  M50  rotation  matrices  time-tagged  by  the 

time 

of  each  COAS 

observation.  Its  frame  format  is  as  follows: 

Integer 

Word 

Type 

Contents 

1-4 

MIX 

Header 

5-22 

DP{9) 

Components  of  Matrix  by  rows 

3.12 

COVARIANCE  FILE 

This 

file  contains  th  UVW 

referenced  sigmas  associated  with  some  filter 

estimate  of  some 

relative  trajectory. 

Integer 

Word 

Type 

Contents 

1-4 

MIX 

Header 

5-16 

DP(6) 

Sigmas  for  Base  State 

17-28 

DP(6) 

Sigmas  for  Relative  State 

3.13 

BIAS  FILE 

This 

file  contains 

the  bias 

solutions  and  associated  sigmas  computed  by  one  of 

the 

filters. 

Integer 

Word 

1m. 

Contents 

1-4 

MIX 

Header 

5-A 

DP(S-12) 

Bias  Solutions 

A+l-B 

DP (S-12) 

Bias  Solution  Sigmas 

where  s is  the  solution  size 

A = 4 + (S-12)  *2 
B = A + (-12)  *2 
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3.14  RESIDUAL  FILE 


This  file  contains  information  from  the  Kalman  filter  as  shown  below: 


Integer 

Word 

Type 

Contents 

1-4 

MIX 

Header 

5-6 

DP 

Edit  Status  (-1  or  1) 

7-8 

DP 

Observation  Value 

9-10 

DP 

Residual  Value 

11-12 

DP 

Residual  Sigma 

13-14 

DP 

Bias  Value 

15-16 

DP 

Bias  Sigma 

3.15  QA  FILES 

The  following  files  are  created  by  the  various  QA  processors: 


The  Attitude  Angular 

Acceleration  File 

Integer 

Word 

Type 

Content 

1-4 

MIX 

Header 

5-10 

DP(3) 

Angular  Acceleration 

11-12 

DP 

Magnitude 

The  Sensed 

Acceleration  File 

Integer 

Word 

Type 

Content 

1-4 

MX  I 

Header 

5-10 

DP(3) 

Sensed  Acceleration 

11-12 

DP 

Magnitude 
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The  Master  Noise  File 


Integer 


Word 

Type 

Content 

1-4 

MIX 

Header 

5-6 

DP 

End  time  of  interval  (Begin  time  is  time tag) 

7-8 

DP 

Average  value  of  observation 

9-28 

DP(10) 

Value  of  moise  associated  with  various  order  of 
divided  difference 

The  Selected  Noise 

File 

Integer 

Word 

Jm. 

Content 

1-4 

MIX 

Header 

5-6 

DP 

End  time  of  intervals  (Begin  time  is  timetag) 

7-8 

DP 

Average  value  of  observation 

9-10 

DP 

Selected  value  of  noise  for  time  interval 

The  Star 

File 

Integer 

Word 

Type 

Content 

1-4 

MIX 

Header 

5-6 

DP 

Inertial  Azimuth  Angle 

7-8 

DP 

Inertial  Elevation  Angle 

9-10 

DP 

Angle  between  the  previous  pointing  vector  and 
current  pointing  vector 

3.16  SENSOR  FILE 

This  file  contains  downlist  information  needed  to  create  the  SENSOR  tapes. 
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Integer 


Word 

1m. 

Content 

1-4 

MIX 

Header 

5-6 

DP 

gmt 

7-8 

DP 

COAS  Data  Good 

9-12 

DP(2) 

COAS  Angles 

13-14 

DP 

Radar  Angle  Data  Good 

15-18 

DP(2) 

COAS  Angle 

19-20 

DP 

Radar  Range  Data  Good 

21-22 

DP 

Radar  Angles 

23-24 

DP 

Radar  Range  Rate  Data  Good 

25-26 

DP 

Radar  Range  Rate 

27-28 

DP 

Star  Tracker  Data  Good 

29-32 

DP(2) 

Star  Tracker  Angle 

33-34 

DP 

NAV  Power  Flight  Flag 

35-40 

DP(3) 

Sensed  Velocity 

41-42 

DP 

Mass 

43-50 

DP(4) 

Attitude 

51-52 

DP 

Sensed  Acceleration  Threshold 

53-54 

DP 

NAV  DAP  Jet  Flag 

55-72 

DP(9) 

Star  Tracker  Matrix 

73-74 

DP 

Star  Tracker  Time tag 

75-92 

DP(9) 

COAS  Matrix 

93-94 

DP 

COAS  Time tag 

95-102 

DP(4) 

Radar  Quaternion 

103-104 

DP 

Radr  Timetag 

105-110 

DP(3) 

DVDISP 

111-152 

DP( 21 ) 

Members  of  Covariance 

153-188 

DP(18) 

NAV  Flags 

189-192 

DP(2) 

TOFF/TON  Flags 

193-196 

DP(2) 

Update  Flags 

197-202 

DP(3) 

V force 

Note  for  more  details  on  contents  see  section  2.4. 
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4.0  TEXT  FILES 


Various  units  are  used  for  display.  Depending  on  the  processor,  the  user  may 
select  up  to  four  different  units  for  short  (TERM)  display,  nominal  (OUT) 
display,  detailed  debug  (BUGS),  and  graphic  (PLOT)  display.  Details  as  to 
format  and  access  of  these  displays  depends  upon  the  processor. 


i.ECEDiNG  FAGsi  EiLAfwv  ?*QT  T jL(vU--D 
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5*0  DATA  BASE  FILES 


The  text  files  described  here  are  generally  output  by  the  qa  processors.  They 
share  a common  format  which  allows  them  to  be  merged,  sorted,  and  searched  by 
various  UNIX  and  RELBET  processors.  Each  line  of  text  contains  at  least  four 
fields  separated  by  white  space. 


Field  1 
Field  2 
Field  3 
Field  4 


Timetag  (begin  time  of  some  event  in  GMT  seconds) 

Primary  key  word  (alpha)  usually  denoting  data  type 
Secondary  key  word  (alpha)  usually  denoting  type  of  event 
Duration  of  event  in  GMT  seconds 


The  remaining  fields  are  defined  per  processor  output  (see  program  manual 
entries). 
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APPENDIX  II 


CONTEXT  FILES 
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representing  a time  value  which  Is  used  as  the 
time-tag  of  the  output  frame,  this  value  Is  further 
negated  to  emphasize  that  this  parameter  is  destined 
for  the  time-tag  position  of  the  header  portion  of 
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offset 

value  that  is  subtracted  from  parameter  before  display, 
specified  in  the  units  determined  by  pscale.  note  that  min/max 
are  checked  after  the  offset  is  removed  and  thus  should  be  relative 
to  the  offset 
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APPENDIX  III 


SUBROUTINE  MANUALS 


Ill-i 


APPENDIX  III  SUBROUTINE  MANUALS 


This  appendix  provides  manual  entries  for  each  subroutine  file  in  the  RELBET 
System.  These  serve  as  a quick  reference  .to  the  subroutine  function 
descriptions  and  provide  definitions  of  the  calling  arguments  used.  The 
manual  entries  are  organized  according  to  the  directory  names  of  the 
associated  code. 

The  entries  follow  a format  standard  to  UNIX.  As  appropriate,  they  contain 
the  following  sections. 

NAME:  Names  of  all  externally  accessible  identifiers  followed  by  a brief 

description  of  the  package. 

SYNOPSIS:  A quick  summary  of  how  to  invoke  the  relevant  functions  and 

parameters.  Includes  types  and  arguments. 

DESCRIPTION:  A functional  description  of  what  the  functions  do  and  what 

the  options  are 

OPTIONS:  Description  of  the  options  when  they  are  suitable  for  inclusion 

in  the  DESCRIPTION. 

FILES:  The  files  are  used  or  assumed  by  the  application. 

EXAMPLE:  Annotated  examples  of  how  to  use  the  application. 

COMMENTS:  Miscellaneous  comments.  For  example,  rationales  for  the 

design  or  functions  may  appear  here. 

BUGS:  Known  problems. 

DIAGNOSTICS:  Warning  and  error  messages,  debug  options. 

SEE  ALSO:  References  to  related  applications. 

AUTHOR:  The  name  of  the  responsible  programmer. 
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routine  cross  reference 


NAME 

FILE 

DIRECTORY 

Add_GNL i st 

"gnaml i st . c" 

Message 

BaseCa 1 T i me 

"BaseT i me . c " 

T i me 

BaseT i me 

"f i leio.c" 

Gbf i le 

Begin 

"search. c" 

Fman 

CurSysT i me 

"systime.c’' 

T i me 

End 

"search. c" 

Fman 

Error_Count 

"stat_msg.c" 

Message 

File 

"search. c" 

Fman 

F i 1 eBaseT i me 

"gbhead.c" 

Gbf i le 

F rame3 

"frame3d.c" 

Coordinate 

GBeg i nT i me 

"BaseT i me . c" 

T i me 

GDel T i me 

"BaseT ime.c" 

T i me 

GEndT i me 

"BaseT ime.c" 

T ime 

GMTday 

"systime.c" 

T i me 

GMT  sec 

"systime.c" 

T ime 

GNLgetName 

"gnaml i st . c" 

Message 

GetCurT i me 

" sys t ime.c" 

T ime 

HBtoHS 

" gbHBuf Move . c " 

Gbf i le 

HStoHB 

"gbHBuf Move . c" 

Gbf i le 

Help 

"search. c" 

Fman 

UD_BaseT i me 

"BaseT ime.c" 

T ime 

LBegi nT i me 

"BaseT ime.c" 

T i me 

LDe 1 T i me 

"BaseT ime.c" 

T i me 

LEndT i me 

"BaseT ime.c" 

T i me 

MakeT i meL i ne 

" t i mel i nes . c " 

Message 

Make_GNLIST 

"gnaml i st . c" 

Message 

NTBLCK 

"ntran.c" 

Product 

NTCLOSE 

"ntran. c" 

Product 

NTEOF 

"nt ran . c " 

Product 

NTFILE 

"ntran . c " 

Product 

NTOPEN 

"ntran . c " 

Product 

NTREAD 

"ntran . c " 

Product 

NTRITE 

"ntran.c" 

Product 

NTRW 


"rvtran . c 


Product 


ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 

FILE 

DIRECTORY 

NTRWRL 

"ntran . c" 

Product 

Pr ime_i d 

"search. c" 

Fman 

Rad i us 

" search . c" 

Fman 

Save_Str_Buf 

"str_store . c" 

Message 

Second_i d 

"search. c" 

Fman 

StatErr Ex i t 

"stat__msg.c" 

Message 

Stat_Msg 

" stat_msg. c" 

Message 

T i me 

"search . c " 

Fman 

UNVOUT 

"unvout . c" 

Mktape 

UVW_Cart 

"uvw . c" 

Coordinate 

Warni ng_Count 

"stat_msg. c" 

Message 

a 1 2 1 q 

"a i j kq . b" 

Coordinate 

a 1 23q 

"a i j kq . b " 

Coordinate 

a 1 3 1q 

"a i j kq . b " 

Coordinate 

a 1 32q 

"ai j kq.b" 

Coordinate 

| a2  1 2q 

"a i j kq . b" 

Coordinate 

a2  1 3q 

"ai jkq.b" 

Coordinate 

a23  1 q 

"a i j kq . b " 

Coordinate 

a232q 

"a i j kq . b " 

Coordi nate 

a3  1 2q 

"ai jkq.b" 

Coord i nate 

a3  1 3q 

"ai j kq. b" 

Coordinate 

a32  1 q 

"a i jkq.b" 

Coordinate 

a323q 

"a i jkq.b" 

Coord i nate 

a32 t36 

" a32t 36 . b " 

Product 

scnvrt 

"acnvrt . b" 

Math 

adb 1 2 i 

"acnvrt . b" 

Math 

addANL i tern 

"anl i sts . c" 

Message 

addef i 1 e 

"stat_msg. c" 

Message 

addpt r 

"ptr 1 i sts . c" 

Message 

aero 

"aero . b" 

Force 

aerror 

" i ngrss . b" 

Message 

ai 2dbl 

"acnvrt . b" 

Math 

ai  2r  1 

"acnvrt .b" 

Math 

a i j kq 

"a i jkq.b" 

Coord i nate 

amenu 

"amenu . b " 

Prompts 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 


ang2 

ang 1 e_rate 
append 
arctan 
arl  2 i 
arshf  t 
asca  1 e 
automx 
awarn 
berron 
bi  nop 
bl dout 

bsearch_t imel 

bwarn 

c2shl 

car 

cart 

cbody 

cbugs 

cdr 

cdrag 

cdtoj  d 

center 

char2 i 

c i ni  t 

cl  as 

cl sf  i 1 

cl sout 

cmp2sg 

cmpdat 

cmvb i t 

coash 

coasv 

comb i ne 

comptw 


FILE  DIRECTORY 


" ang2 . b " 

Math 

"qaatt.c" 

Fman 

" 1 i sts . c" 

Lists 

"arctan . b " 

Math 

"acnvrt . b " 

Math 

"arshf t . b" 

Math 

"ascale.b" 

Plot 

"automx . b" 

Plot 

" i ngrss . b" 

Message 

"stat_msg.cM 

Message 

" 1 i nput . c" 

L i nput 

"getout . b" 

Downf or 

" t imel i nes . c" 

Message 

" stat_msg . c " 

Message 

"c2shl .b" 

Coordinate 

"1 i sts . c" 

L i sts 

"cart . b" 

Coordi nate 

"cbody . b" 

Force 

"xcoas . b" 

Obs 

"1  i s t s . c " 

Lists 

"cdrag . b " 

Force 

"cmpdat . b" 

T i me 

"center . b" 

Files 

"arshf t . b" 

Math 

"xcoas. b" 

Obs 

"cl  as . b" 

Coordi nate 

"obtf 11 .b" 

Downf or 

"getout . b" 

Downf or 

"cmp2sg. c" 

Fman 

"cmpdat . b" 

T i me 

"cmvb 1 t . b" 

Product 

"xcoas . b" 

Obs 

"xcoas . b" 

Obs 

"obsnoi s . c " 

Fman 

"comptw . b" 

Product 

ROUTINE  CROSS  REFERENCE  (cont'd) 

NAME  FILE  DIRECTORY 


cons 

"1 ists.c" 

L i Sts 

constm 

“constm. b" 

Celestial 

cover_f i 1 e 

"qacover . c" 

Fman 

cros 

"mx3ops . b“ 

Math 

ct  i o 

" t i o . b “ 

Prompts 

cvprop 

"cvprop . b" 

F i 1 ter 

cy  1 dr 

“cy 1 dr . b" 

Force 

dat i me 

"dat ime. b" 

Message 

days 

“days .b“ 

T ime 

days 

" t imedate. c“ 

T ime 

days Ibc 

" t i medate . c“ 

T ime 

daysxx 

“daysxx. b" 

T i me 

dbl  2 i 

“arshf t . b “ 

Math 

dbshf t 

“arshf t . b“ 

Math 

dc  i ph 

"dc i ph . b “ 

Prompts 

Idciphr 

“dc iphr . b“ 

Prompts 

dctpr t 

"dctprt . b" 

Gff 

ddna 

“ddna . b" 

Noisanal 

ddno i s 

"ddnoi s . b“ 

Noi sanal 

de 1 out 

"get out . b" 

Downf or 

df da ta 

"df data . b" 

Downf or 

df nput 

"df nput . b" 

Downf or 

dhms 

11  dhms  . b " 

T i me 

di  v 

" 1 i nput . c" 

L input 

dka  1 

"dka 1 .b" 

Filter 

dnumber 

"1 ists.c" 

L i sts 

dol 1 ar 

"dol lar .b" 

Charut i 1 

dpf  mt 

"dpf mt . b" 

Oatape 

dpi  ot 

"dpi ot .b" 

Plot 

dprod 

"dprod . b" 

Product 

dprop 

"dprop. b" 

Propagate 

drpst 

"drpst . b" 

Fman 

dsmth 

"dsmth. b" 

F i 1 ter 

dspxq 

"dspxq . b" 

Numdi s 

t i o 


t i o . b 


Prompts 


ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 


dval ue 

dvdt 

dwnf mt 

dxcmp 

dxqdsp 

dxset 

eb2asc 

ed i t_f rame 

egrss 

eph2_i n 

eph2rel 

eq 

err_code 
err_hpcode 
et  sec 
euler 
f etchbi ts 
f gbprt 
f i 1 e2 i o 
f i 1 e_s i ze 
f i 1 ei nf o_io 
f i 1 e i o 
f prtCurT i me 
f prt F i n i sh 
f prtStars 
f prtT imeL i ne 
f pr tarray 
f prtct i me 
f prtdate 
fprtgnl i st 
f pr thms 
f pr tsec 
f reeGBF 
f reepl i st 
f sk i p_l i nes 


FILE 


DIRECTORY 


1 i s t s . c " 

L i sts 

dvdt . b" 

Propagate 

dwnf mt . b" 

Downf or 

dxcmp . b" 

Numd  i s 

dxqdsp . bM 

Numdi  s 

dxset . b" 

Product 

eb2asc . c " 

Downf or 

f i 1 ed i t . c " 

Fman 

i ngrss . b " 

Message 

mk i ni t . c" 

Fman 

eph2rel . c" 

Fman 

' 1 ists.c" 

L i sts 

'stat_msg . c" 

Message 

'stat_msg . c" 

Message 

t imedate . c" 

T i me 

'eul er . b“ 

Coordi nate 

1 i bmcvt .c" 

Downf or 

'gbprtd. c" 

Gbf i le 

1 f i 1 e2 i o . c " 

Gbf i le 

1 s 1 n2r  1 . c 11 

Fman 

'f i lei nf o_i o . c " 

Gbf  i le 

' f i 1 e i o . c " 

Gbf  i le 

1 syst i me . c " 

T i me 

'stat_msg.c" 

Message 

'prt_ut i 1 . c" 

Message 

'time! i nes . cn 

Message 

‘prtarray . c" 

Math 

' t i mepr i nt . c" 

T i me 

‘ t i mepr i nt . c " 

T i me 

'gnaml i st . c" 

Message 

'timeprint .c" 

T i me 

* t i mepr i nt . c" 

T i me 

'gbopen. c" 

Gbf i le 

'ptr 1 i sts . c" 

Message 

'prt_ut i 1 . c" 

Message 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 

FILE 

DIRECTORY 

f val ue 

"1  i s t s . c " 

L i sts 

gbcl ose 

“gbopen . c" 

Gbf ile 

gbdread 

"gbio.c" 

Gbf i 1 e 

gbdwr i te 

" gb i o . c " 

Gbf i le 

gbf cl s 

"gbf io.c" 

Gbf ile 

gbf com 

"gbf com . c M 

Fman 

gbf df c 

"gbf io. c" 

Gbf i 1 e 

gbf new 

"gbf i o . c " 

Gbf ile 

gbf opn 

"gbf io.c" 

Gbf i le 

gbf ops 

"gbf io.c" 

Gbf i le 

gbf phead 

"gbprtd . c" 

Gbf i le 

gbf ree 

"gbopen . c" 

Gbf i le 

gbf wrt 

"gbf io.c" 

Gbf i le 

gbnew 

"gbopen. c" 

Gbf i le 

gbopen 

"gbopen. c" 

Gbf i le 

f gbphead 

"gbprtd. c" 

Gbf i le 

gbpos 

"gbio.c" 

Gbf i le 

gbread 

"gbio.c" 

Gbf i 1 e 

gbrhead 

"gbhead. c" 

Gbf i le 

gbt i me 

"gbt ime . c" 

Gbf  i le 

gbtof f 

"gbhead. c" 

Gbf i le 

gbwhead 

"gbhead. c" 

Gbf lie 

gbwr i te 

"gbio.c" 

Gbf i le 

gd  i sp 

"gd i sp . b " 

Numd i s 

gdspop 

"gdspop. b" 

Numdi s 

genout 

"genout . b" 

Downf or 

gerror 

" iegrss . b" 

Message 

get 

"get .b" 

Files 

get_next_f  rame 

" f i 1 e2 i o . c " 

Gbf  i le 

get___rate_tabl  e__va  1 ue 

" ratetabl e . c " 

Message 

getangl e 

"qastar.c" 

Fman 

getbi t 

"getbit.b" 

Oatape 

getbi ts 

"eb2asc . c" 

Downf or 

getbi ts 

"unvout . c" 

Mktape 

betdat 


getdat . b 


Downf or 


ROUTINE  CROSS  REFERENCE  (cont'd) 

NAME  FILE  DIRECTORY 


gethdr 

"gethdr . b" 

Downf or 

get  i n 

" i n i t 1 i nput . c" 

L i nput 

getm 

"getm. b" 

Force 

getnxt 

"getnxt . b" 

F i 1 ter 

getout 

"getout . b" 

Downf or 

getrnp 

"getrnp . b " 

Celestial 

getspg 

"getspg . b" 

Product 

gf  cl  s 

"gfcls.b" 

Gf  f 

gf diet 

"gf diet . b" 

Gf  f 

gf emsg 

"gf emsg . b " 

Gf  f 

gf  end 

"gf end . b" 

Gf  f 

gf f_i n 

"f i 1 edi t . c" 

Fman 

gf f dsp 

"gf f dsp . b" 

Gf  f 

gf  new 

"gf new . b" 

Gf  f 

gf open 

"gfopen.b" 

Gf  f 

gf read 

"gf read.b" 

Gf  f 

gf rhdr 

"gf rhdr .b" 

Gf  f 

gf t ime 

"gf time.b" 

Gf  f 

gf  t i ms 

"gf t ims . b" 

Gf  f 

gf whdr 

"gf whdr . b" 

Gf  f 

gf wr i t 

"gfwri t . b" 

Gf  f 

gmenu 

"qxmenu.b" 

Prompts 

gndsp 

"gndsp. b" 

Numd i s 

gr f npt 

"pi tnpt .b" 

Plot 

gsempty 

"gstack . c " 

Stacks 

gsf ree 

"gstack . c " 

Stacks 

gspeek 

"gstack . c " 

Stacks 

gspoke 

"gstack . c" 

Stacks 

gspop 

"gstack . c" 

Stacks 

gspush 

"gstack . c" 

Stacks 

gwarn 

" i egrss . b" 

Message 

harm 

"harm . b" 

f orce 

hdrprt 

"hdrprt .b" 

Gf  f 

hms2ds 

" hms2ds.b" 

T i me 

hms2sec 

" t i medate . c" 

T i me 

I 


ROUTINE 

CROSS  REFERENCE 

(cont ' d) 

NAME 

FILE 

DIRECTORY 

hptou5 

"hptouS . b" 

Product 

i 2char 

,!arshf  t . b" 

Math 

i 2db  1 

"arshf t . b" 

Math 

i 2rea1 

"arshf t .b" 

Math 

i bmcvt 

" i bmcvt . c " 

Downf or 

i bshf t 

“arshf t . b" 

Math 

i cshf t 

" icshf t .b" 

Gff 

i dent 

“mxops . b " 

Math 

i dent3 

"mx3ops . b" 

Math 

i egrss 

" i egrss . b" 

Message 

imatq 

“qnops . c" 

Math 

imatq 

“qtnops . b" 

Math 

i move 

11  i move  . b " 

Oatape 

imzero 

“mxops . b" 

Math 

i nf  mt 

" i nf mt . b" 

Oatape 

i ngrss 

" i ngrss . b" 

Message 

i n i t i n 

" ini 1 1 i nput . c 

" Li nput 

i number 

"1 ists.c" 

L i sts 

i nvrs 

“ i nvrs . r " 

RELBET/F i 1 ter 

i opprt 

" i opprt . b" 

Gff 

ioschk 

" ioschk. b" 

Message 

i rot 

"qtnops . b" 

Math 

i satom 

"1 ists.c" 

L i sts 

i sdnumber 

“1 ists.c" 

L i sts 

i search__t  i mel  ine 

" t imel i nes . c" 

Message 

i sf unct i on 

"1 ists.c" 

L i sts 

i s i number 

"1 ists.c" 

L i sts 

i ssymbol 

"1 ists.c" 

L i sts 

i t i o 

" t i o . b " 

Prompts 

i val ue 

"1 ists.c" 

L i sts 

, i vshf t 

"arshf t . b" 

Math 

| i vzero 

"arshf t .b" 

Math 

1 

i xatm 

" ixatm.b" 

Input 

| i xbi as 

" i xbi as . b" 

Input 

i xcon 

" ixcon. b" 

Input 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 


i xdata 
i xdprm 
i xer  th 
i xf  i 1 e 
i xgnr 1 
i xgraf 
i xgrav 
i x i n i t 
i xka  1 
i xmas 
i xmax 
i xm  i sc 
i xmoon 
i xnf  1 z 
i xprnt 
i xprop 
i xqcrv 
i xqgen 
i xqprm 
i xrpst 
i xscov 
i xsen 
i xsprm 
i xsptm 
i xsun 
i xsvb i 
i xt i me 
i xtof f 
i xusys 
i xvcx 
i xvnt 
j2c 
j 2ymd 
j dtocd 
j mpcomp 


FILE  DIRECTORY 


i xdata . b" 

Input 

i xdprm . b" 

Input 

i xerth . b" 

Input 

i xf i 1 e . b " 

Input 

i xgnr 1 . b" 

Input 

i xgraf . b" 

Input 

i xgrav . b" 

Input 

i x 1 n i t . b " 

I nput 

i xka 1 .b" 

Input 

i xmas . b " 

Input 

i xmax  . b 11 

Input 

i xmi sc . b M 

Input 

i xmoon . b " 

Input 

i xnf 1 z . b" 

Input 

i xprnt . b“ 

Input 

i xprop . b" 

Input 

i xqcrv . b " 

Input 

i xqgen . b" 

Input 

i xqprm. b" 

Input 

i xrpst . b" 

Input 

i xscov . b" 

Input 

i xsen . t " 

Input 

i xsprm . b" 

I nput 

i xsptm . b 11 

I nput 

i xsun . b H 

Input 

i xsvb i . b" 

Input 

i xt i me . b" 

Input 

i xtof i . b" 

Input 

i xusys . b " 

Input 

i xvcx . b" 

Input 

i xvnt . b " 

Input 

j 2c . b " 

T i me 

j 2ymd . b" 

T ime 

cmpdat . b" 

T ime 

qaranj  mp . c 11 

Fman 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 

FILE 

DIRECTORY 

j ul 2cal 

" t i medate . c" 

T ime 

j u 1 date 

"timedate.c" 

T ime 

j u 1 1 i me 

11 1 i medate . c " 

T i me 

kal man 

"kal man. b" 

F i 1 ter 

krel  o 

"krel o . b " 

F i 1 ter 

krel oc 

" krel o . b " 

F i 1 ter 

1 ax 

“lax.b" 

Coordinate 

1 ength 

" 1 i s t s . c " 

Lists 

1 gf  ac 

"lgint.b" 

Numd i s 

Igint 

" 1 gi nt . b" 

Numdi s 

1 i n i t 

"1 ists.c" 

Lists 

1 i nput 

" 1 i nput . c" 

L i nput 

1 int 

"1 int .b" 

Interpolate 

1 intin 

"1 i nt i n. b" 

Interpolate 

1 ocate 

"1 ists.c" 

L i sts 

1 rntrp 

" 1 rntrp.b" 

Interpol  ate 

1 rntrp 

" rel ntrp . c " 

Interpol  ate 

1 

1 1 search_t i mel  i ne 

i 

" t i me  1 i nes . c " 

Message 

1 sm  i n 

" 1 sm  i n . b 11 

Math 

1 St 

“ lst.b" 

Coordi nate 

1 stf nd 

" 1 stf nd . b" 

Charut i 1 

m2qsub 

"m2qsub.b" 

Math 

ma  i n 

"cmp2sg. c" 

Fman 

jmai  n 

Meph2rel .c" 

Fman 

ma  i n 

" f iche.c" 

Fich 

ma  i n 

" f i 1 ed i t . c " 

Fman 

main 

"gbf com. c" 

Fman 

ma  i n 

"mk i ni t . c" 

Fman 

ma  i n 

"obsnois.c" 

Fman 

ma  i n 

"qaatt.c" 

Fman 

main 

"qacover . c" 

Fman 

ma  i n 

"qanoi s.c" 

Fman 

ma  i n 

"qaranjmp . c" 

Fman 

ma  i n 

"qastar . c" 

Fman 

ma  i n 

"qasv . c" 

Fman 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME  FILE  DIRECTORY 


ma  i n 

" rdwt . c" 

Fman 

ma  i n 

" read_set . c" 

Fman 

ma  i n 

" read_s i t * c " 

Fman 

ma  i n 

" r 1 vsr 1 . c" 

Fman 

ma  i n 

"search. c" 

Fman 

ma  i n 

"sln2rl . c " 

Fman 

ma  i n 

" stop . c 11 

Fman 

makeDate 

“ t i memake . c " 

T i me 

makeGBData 

" gbmake.c" 

Gbf i 1 e 

makeGBF 

"gbmake . c " 

Gbf i 1 e 

makeHMS 

"t i memake. c" 

T ime 

makeT ime 

" ti memake. c" 

T i me 

make_gstack 

"gstack . c" 

Stacks 

makepl i st 

"ptr 1 i sts . c" 

Message 

match 

"match. b" 

Downf or 

matq 

"qnops . c" 

Math 

matq 

"qtnops . b" 

Math 

member 

" 1 i sts . c " 

L i sts 

mk i n i t 

"mk i ni t . c" 

Fman 

mktape 

"mktape . b " 

Mktape 

mmxchk 

"mmxchk . b " 

Plot 

mnthnum 

" t i medate . c" 

T i me 

moonup 

"moopos . b" 

Cel est i a 1 

moopos 

"moopos . b" 

Cel est i al 

msgdsp 

"msgdsp. b" 

Message 

mshf t3 

"mx3ops . b" 

Math 

mshi f t 

"mxops .b" 

Math 

mt 

"matrix. c" 

Math 

mtran 

" mxops. b" 

Math 

mtran3 

"mx3ops.b" 

Math 

mtxm 

"matrix. c" 

Math 

mtxm3 

"mx3ops.b" 

Math 

ml:  xv 

"matr i x . c " 

Math 

mtxv 

"mxops. b" 

Math 

mtxv3 


mx3ops . b 


Math 


ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME  FILE  DIRECTORY 


mul  t 

" 1 i nput . c" 

L i nput 

mvmul 

"mxops . b" 

Math 

mvmu  1 3 

"mx3ops . b" 

Math 

mx3ops 

"mx3ops . b" 

Math 

mxadd 

"mxops . b" 

Math 

mxm 

"matr i x . c" 

Math 

mxmc 

"mat r i x . c " 

Math 

mxmt 

"matni x . c" 

Math 

mxmt3 

"mx3ops . b" 

Math 

mxmu  1 

"mxops . b" 

Math 

mxmu  1 3 

"mx3ops . b" 

Math 

mxops 

"mxops . b" 

Math 

mxv 

"matrix. c" 

Math 

mzero 

"mxops . b" 

Math 

mzero3 

"mx3ops . b" 

Math 

ndf  ni  t 

"ndnf 1 z . b" 

Dsput i 1 

ndf npt 

"ndnf Iz.b" 

Dsput i 1 

ndhead 

"ndhead. b" 

Dsput i 1 

ndnf  1 z 

"ndnf lz .b" 

Dsput i 1 

ndpage 

"ndpage . b" 

Dsput i 1 

newGBF 

"gbhead. c" 

Gbf i le 

newcel 1 

" 1 i nput . c" 

L i nput 

newcel 1 

" newcel 1 . c " 

L i npu-: 

newpg 

"msgdsp . b" 

Message 

ngrss 

" i ngrss . b" 

Message 

ni  1 

" 1 1 sts. c" 

L i sts 

ni  tout 

"getout.b" 

Downf or 

nkal 

"nkal . b" 

F i 1 tor 

nl  i s t 

" 1 i nput . c" 

L i nput 

nno  i s 

"nno i s . b" 

No i sana 1 

normq 

" qnops . c" 

Math 

npl  ot 

"npl ot . b" 

Plot 

nprod 

"nprod. b" 

Product 

nprop 

*'  nprop . b" 

Propagate 

nrml zq 

"nrml zq. b" 

Math 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME  FILE  DIRECTORY 


nrpst 

"nrpst .b" 

Fman 

nsmth 

" nsmth. b" 

F i 1 ter 

nst rng 

" nst rng . b " 

Charut i 1 

nxcmp 

" nxcmp. b“ 

Numdi  s 

nxqdsp 

“ nxqdsp . b" 

Numd  i s 

nxtnd 

"nxtnd . b " 

Dsput  i 1 

nxtnd 

" nxtnd. b" 

Product 

obc  1 s 

"obout . b" 

F i 1 ter 

obcode 

"obcode . b " 

Obs 

obest 

"obest . b" 

F i 1 ter 

obout 

"obout . b" 

F i 1 ter 

obread 

"obread. b" 

Files 

obtf i 1 

"obtf i 1 .b" 

Downf or 

obwr i t 

"obwr i t . b " 

Files 

opnout 

"getout.b" 

Downf or 

opnprp 

"opnprp . b " 

Propagate 

out_bi as 

"s 1 n2r 1 .c" 

Fman 

out_cov 

" s 1 n2r 1 .c" 

Fman 

out_rel 

" si n2r 1 . c" 

Fman 

pchrat 

"xradar . b " 

Obs 

pcpt 

"pcpt .b" 

F i 1 ter 

pdsp 

"tpdsp.b" 

Message 

p i tch 

"xradar . b " 

Obs 

pi  otx 

"plotx.b" 

Plot 

pi tnpt 

"pi tnpt . b" 

Plot 

pmenu 

"qxmenu . b" 

Prompts 

pred 

"pred.b" 

F i 1 ter 

pr i nt_record 

"read_set . c" 

Fman 

pr i nt__record 

"read_si t . c" 

Fman 

prodx 

"prodx . b " 

Product 

prpnpt 

"prpnpt . b" 

Propagate 

pr t 3ma t 

"prtarray . c" 

Math 

pr t3tmat 

"prtarray . c" 

Math 

pr t3vec 

"prtarray . c " 

Math 

pr t ANL i st 

"anl i sts . c " 

Message 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 

FILE 

DIRECTORY 

prtANL i tern 

"anl i sts . c" 

Message 

prtCurT i me 

"syst ime.c" 

T i me 

prtF i ni sh 

"stat_msg . c" 

Message 

prtStars 

“prt_util  . cn 

Message 

prtarray 

"prtarray.c" 

Math 

prtct ime 

"t imepr int .c" 

T ime 

prtdate 

" t imepr int.c" 

T ime 

prthms 

" t imepr  int.c1' 

T i me 

prt  i n 

"prt_i nput . cN 

L i nput 

prtsec 

" t imepr int.c" 

T ime 

psc  1 s 

"psout . b" 

F i 1 ter 

psout 

"psout . b" 

F i 1 ter 

pstrz 

" tpdsp. b" 

Message 

ptbl 

"ptbl .b" 

F i 1 ter 

put  72 

"unvout . cH 

Mktape 

; putchr 

"unvout . c“ 

Mktape 

putexp 

"putexp . c" 

L i sts 

pwr 

" 1 i nput . c" 

L i nput 

q 1 2 1 a 

"qi jka.b" 

Coordinate 

q 1 23a 

"qi jka.b" 

Coordinate 

q 1 3 1 a 

"a i j ka . b" 

Coordinate 

q 1 32a 

1 q i j ka . b" 

Coord i nate 

q212a 

'qi jka.b" 

Coordinate 

q2  1 3a 

' qi jka . b" 

Coordinate 

q23  1 a 

“qi jka.b" 

Coordinate 

q232a 

11  q i j ka  . b" 

Coordinate 

q2crv 

" q2crvz . b" 

Plot 

q2crvz 

“q2crvz . b" 

Plot 

q2draw 

"q2draw . b“ 

Plot 

q2ecrv 

"q2crvz . b" 

Plot 

q2f nsh 

"q2grph . b " 

Plot 

q2grph 

"q2grph. b" 

Plot 

q21 egn 

"q2crvz . b" 

Plot 

q2 1 sto 

"q2crvz . b" 

Plot 

q2msub 

"q2msub . b“ 

Math 

I 


I 


ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 

FILE 

DIRECTORY 

q3  1 2a 

"qi j ka. b" 

Coordinate 

q3  1 3a 

"qi j ka . b" 

Coordinate 

q32 1 a 

"qi jka.b" 

Coordinate 

q323a 

"qi j ka . b" 

Coord i nate 

q_pop 

"gstack . c" 

Stacks 

q_push 

"gstack . c" 

Stacks 

qanoi s 

"qano i s . c " 

Fman 

qatape 

"qatape . b" 

Qatape 

qcxq 

"qnops . c" 

Math 

qcxq 

"qtnops. b" 

Math 

qdev i n 

"qdev i n . b " 

Plot 

qdevr 1 

"qdev i n . b " 

Plot 

qdot 

"qnops . c" 

Math 

q i j ka 

"qi jka. b" 

Coord i nate 

qi  ntp 

"qnops . c " 

Math 

qi ntrp 

"qintrp.b" 

Interpolate 

qpi ntx 

"qp i ntx . b" 

Plot 

qpl  ot 

"qpl ot . b" 

Plot 

qpl t2d 

"qpl t2d . b " 

Plot 

qpxget 

"qpxget . b" 

Plot 

qr 1 ptn 

"qslptn.b" 

Plot 

qnot 

"qrot . b" 

Math 

qsl ptn 

"qslptn.b" 

Plot 

qtnops 

"qtnops . b" 

Math 

qtoim 

"qtnops . b" 

Math 

qtom 

"qtnops . b" 

Math 

qv i rot 

"qnops . c" 

Math 

qvrot 

"qnops . c" 

Math 

qwntrp 

"qwntrp . b" 

Interpol  ate 

qxmenu 

" qxmenu . b " 

Prompts 

qxq 

"qnops . c" 

Math 

qxq 

"qtnops . b" 

Math 

qxqc 

"qnops . c" 

Math 

qxqc 

"qtnops . b" 

Math 

qxstuf 

"qxstuf . b" 

Charut i 1 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 

FILE 

DIRECTORY 

qxval u 

"qxval u. b" 

Charut i 1 

range 

"xradar . b" 

Obs 

ranrat 

" xradar . b " 

Obs 

read_set 

" read_set . c " 

Fman 

read__s  i t 

" read_s it.c" 

Fman 

real  2 i 

"arshf t . b" 

Math 

ref _i n 

"f  i 1 edi  t . c 11 

Fman 

rel  _i  n 

"mk i n i t . c " 

Fman 

r 1 2beg 

M r 1 f i 1 1 . b " 

Files 

r 1 2end 

» r 1 f i 1 1 . b " 

Files 

r 1 back 

" r 1 f i 1 1 . b " 

Files 

r 1 bwds 

"rledit.b" 

Files 

riels 

"rlcls.b" 

Files 

r 1 entr 

" r 1 entr . b" 

Files 

r 1 dsp 

"r 1 dsp. b" 

Files 

r 1 edi t 

"rledit.b" 

Files 

r 1 f 111 

" r 1 f ill . b “ 

Files 

r 1 f rnt 

" r 1 f i 1 1 . b " 

Files 

r 1 f wds 

"rledit.b" 

Files 

r 1 hdsp 

"rldsp. b" 

Files 

r 1 m i d 1 

" r 1 m i d 1 . b " 

Files 

r 1 new 

" r 1 new . b " 

Files 

r 1 nt rp 

" r 1 ntrp . b " 

I nterpol ate 

r 1 open 

“ r 1 open . b " 

Files 

r pdsp 

"rldsp . b" 

Files 

r ' i read 

"r 1 read. b" 

Files 

r 1 t ime 

" r 1 t i me . b " 

Files 

r 1 vsr 1 

"r 1 vsr 1 . c" 

Fman 

i r 1 wr  i t 

" r 1 wr i t . b" 

Files 

' rmef i 1 e 

"stat_msg . c" 

Message 

1 rmptr 

"ptr 1 ists . c" 

Message 

rmxm 

i 

"rmatrix.c" 

Math 

rmxmc 

" rmatr i x . c " 

Math 

rmxv 

" rmatr i x . c" 

Math 

rmzero 

"mxops . b" 

Math 
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ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 

FILE 

DIRECTORY 

rol  1 

"xradar . b" 

Obs 

rol rat 

"xradar . b" 

Obs 

rot 

"qtnops . b" 

Math 

rotate 

" rotate . b" 

Celestial 

rptost 

11  rptost  .b" 

Fman 

r r rf  i 1 e 

"qaranjmp. c" 

Fman 

r st 

"rst.b11 

Coord i nate 

r tang  1 

11  rtangl  . b “ 

Obs 

r t i o 

" t i o . b " 

Prompts 

rtntrp 

"rel ntrp. c" 

Interpol  ate 

rtnt rp 

"rtntrp. b" 

Interpolate 

runkut 

"runkut . b" 

Propagate 

rvprop 

"rvprop . b" 

Propagate 

rvshf t 

"arshf  t . b " 

Math 

rvup 

"rvup . b " 

Propagate 

rvzero 

"arshf t . b" 

Math 

scl set 

"scl set . b" 

Plot 

search 

"search . c" 

Fman 

sec2hms 

11 1 i medate . c " 

T i me 

secnds 

"secnds . b" 

T i me 

sensed_vel 

"qasv . c " 

Fman 

setDate 

" t i memake . c " 

T i me 

setHMS 

" t i memake . c " 

T i me 

setMaxErr 

"stat_msg. c" 

Message 

setT i me 

“ ti memake. c" 

T ime 

set  i n 

" i n i t 1 i nput . c" 

L i nput 

setq 

"1  input . c" 

L i nput 

sf  ilt 

"sf i lt.b" 

F i 1 ter 

sf i n i t 

" sf  i ni  t . b" 

F i 1 ter 

sf  out 

"sf out . b" 

F i 1 ter 

sf trat 

"xradar . b" 

Obs 

shaft 

"xradar . b" 

Obs 

shoxq 

"dspxq . b" 

Numd i s 

s i gn 

"sign.c" 

Math 

sk i p_l i nes 

"prtjjti  1 .c" 

Message 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME  FILE  DIRECTORY  £ j-,. _ : 

Q#r  po^  . ^ 


smmul 3 

"mx3ops . b" 

Math 

smooth 

"smooth. r " 

F i 1 ter 

snoi se 

"snoi se. b" 

F i 1 ter 

sol  rad 

"sol  rad. b" 

Force 

spf  mt 

"spf mt . b" 

Qatape 

sphdr 

"sphdr . b" 

Product 

spr tct i me 

" t i mepr i nt . c " 

T i me 

sprtdate 

" t imepr Int .c" 

Time 

sprthms 

" t i mepr i nt . c" 

T i me 

sprtsec 

" t 1 mepr i nt . c " 

T i me 

star_track 

"qastar . c" 

Fman 

starz 

"msgdsp . b" 

Message 

std_t i me 

" t i medate . c" 

T i me 

st i ni t 

"xtrack.b" 

Obs 

stm 

" stm . b" 

F i 1 ter 

stmrv 

"stmrv. b" 

F i 1 ter 

stop 

"stop. c" 

Fman 

stprop 

"stprop . b" 

F i 1 ter 

st rsave 

"strsave . c" 

L i sts 

strstore 

"strstore. c" 

Lists 

sub 

" 1 i nput . c " 

L i nput 

sum 

" 1 i nput . c" 

L i nput 

sunpos 

" sunpos . b " 

Cel est i al 

sunup 

"sunpos . b" 

Cel est i al 

superg 

"superg. b" 

Propagate 

sval ue 

"1  i s t s . c " 

L i sts 

svelbs 

"svelbs . b" 

Force 

svf tch 

"svf tch. b" 

Force 

svmul 

"mxops . b " 

Math 

svmu  1 3 

"mx3ops . b" 

Math 

svntrp 

"svntrp . b" 

Interpolate 

symbol 

| 

"1  i s t s . c " 

L i sts 

symxv 

"symxv. b" 

Math 

tangle 

"tangle . b " 

Obs 

taperd 

" taperd. c" 

Downf or 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME  FILE 


tblchk 

tbl ook 

tdsp 

tenrnd 

test_pr i nt 

text_i  n 

t i o 

tpdsp 

tpstrz 

trackh 

trackv 

trn i on 

t rnrat 

tstep 

tstrz 

twobod 

uax 

udpf mt 

u i nf mt 

unop 

uspf mt 

ust 

usub 

uvw2m 

uvwl vh 

uvwmat 

vadd 

vadd 

vadd3 

vaddto 

val dat 

vd  i st 

vdot 

vdot 

vdot3 


"tblchk. b" 
"tbl ook. b" 
"tpdsp. b" 
"tenrnd. b" 
"qastar.c" 
"f iledit.c" 
"tio.b" 

" tpdsp . b " 

" tpdsp. b" 
"xtrack.b" 
"xtrack.b" 
"xradar . b" 
"xradar . b" 
"tstep. b" 
"tpdsp. b" 
"twobod . b" 
"uax . b" 
"udpfmt .b" 
"u i nf mt . b " 
"1 input.c" 
"uspf mt . b " 
"ust .b" 

" 1 i nput . c " 
"uvw2m . b" 
"uvwl vh . b " 
"uvwmat . b " 
"mxops.b" 
"vector . c" 
"mx3ops . b" 
"vector . c " 
"val dat ,b" 
"vector . c" 
"mxops.b" 
"vector . c" 
"mx3ops . b" 


DIRECTORY 


Product 

Force 

Message 

Math 

Fman 

Fman 

Prompts 

Message 

Message 

Obs 

Obs 

Obs 

Obs 

Propagate 

Message 

Celestial 

Coordi nate 

Product 

Product 

L i nput 

Product 

Coord i nate 

L i nput 

F i 1 ter 

Coordi nate 

Coordinate 

Math 

Math 

Math 

Math 

Downf or 

Math 

Math 

Math 

Math 


ROUTINE  CROSS  REFERENCE  (cont'd) 
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NAME  FILE  DIRECTORY  OF  POOR  QUALITY 


vf  add 

"vector . c" 

Math 

vf  addto 

"vector . c" 

Math 

vf  mu  1 

"vector . c " 

Math 

v 1 i st 

"1  input .c" 

L i nput 

vl  rest 

" vl rest . b" 

F i 1 ter 

vnorm 

"mxops . b" 

Math 

vnorm3 

"mx3ops . b " 

Math 

vntf ch 

" vntf ch . b" 

Force 

vrss 

"vector . c" 

Math 

vruni t 

"vector . c" 

Math 

vset 

"vector . c " 

Math 

vshf t3 

"mx3ops . b" 

Math 

vshi f t 

"arshf t . b " 

Math 

vsub 

"mxops . b" 

Math 

vsub 

"vector . c" 

Math 

vsub3 

"mx3ops . b" 

Math 

vuni  t 

"mxops . b" 

Math 

vuni t 3 

1 

"mx3ops.b" 

Math 

vzero 

"arshf t .b" 

Math 

vzero 

"vector . c " 

Math 

vzero3 

"mx3ops . b" 

Math 

wndang 

"wndang . b" 

Force 

wr  * te_f i 1 e 

" rdwt . c " 

Fman 

wrtout 

"getout . b" 

Downf or 

x Ibl nk 

"qxstuf .b" 

Charut i 1 

xbl ank 

"qxstuf . b" 

Charuti 1 

xcmpar 

"xcmpar . b" 

Numdi  s 

xcoas 

"xcoas . b" 

Obs 

xdsp 

"msgdsp . b" 

Message 

xdsp2 

1 

"msgdsp . b" 

Message 

xf 8dmp 

"xf 8dmp . b " 

Dsput  i 1 

x i 2chr 

"xi 2chr . b" 

Charuti 1 

xnth 

"xnth.b" 

Charut i 1 

xqdatz 

"xqwtmz . b " 

Prompts 

xqdsp 

"xqdsp . b" 

Numd i s 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME  FILE  DIRECTORY 


xqdspl 

"dspxq.b" 

Numdi  s 

xqdsph 

"dspxq . b 11 

Numdi  s 

xqkmp 1 

" xqkmpt . b " 

Numdi s 

xqkmp2 

"xqkmpt . b" 

Numdi  s 

xqkmpt 

"xqkmpt . b" 

Numd  i s 

xqt i me 

" xqwtmz . b " 

Prompts 

xqwget 

" xqwget . b " 

Dsput  i 1 

xqw i nt 

“xqwget . b" 

Dsput  i 1 

xqwtmz 

" xqwtmz . b " 

Prompts 

xradar 

"xradar . b" 

Obs 

xtrack 

"xtrack. b" 

Obs 

yesno 

"yesno. b" 

Prompts 

ymd2j 

"ymd2j . b" 

T i me 

yyback 

"lex.c" 

Li nput 

yybg i n 

"lex.c" 

L i nput 

yycrank 

"lex.c" 

L i nput 

yyerror 

" 1 i nput . c" 

L i nput 

yyes ta te 

"lex.c" 

L i nput 

yyext ra 

"lex.c" 

L i nput 

yyf  nd 

"lex.c" 

L i nput 

yyin 

"lex.c" 

L i nput 

yy i npu t 

"lex.c" 

L i nput 

yy 1 eng 

"lex.c" 

L i nput 

yy  1 ex 

"lex.c" 

L i nput 

yy 1 i neno 

"lex.c" 

L i nput 

yy 1 ook 

"lex.c" 

Li nput 

yyl  sp 

"lex.c" 

L i nput 

yy 1 state 

"lex.c" 

L i nput 

yymatch 

"lex.c" 

L i nput 

yymorf g 

"lex.c" 

L i nput 

yyol sp 

"lex.c" 

L i nput 

yyout 

"lex.c" 

L i nput 

yyoutput 

"lex.c" 

L i nput 

yyprevi ous 

"lex.c" 

L i nput 

yysbuf 

"lex.c" 

L i nput 

ROUTINE  CROSS  REFERENCE  (cont'd) 


NAME 

FILE 

DIRECTORY 

yysptr 

"lex.c" 

L i nput 

yysvec 

"lex.c11 

L i nput 

yy tchar 

"lex.c" 

L i nput 

yy text 

"lex.c" 

L i nput 

yytop 

"lex.c" 

L i nput 

yyunput 

"lex.c" 

L i nput 

yyvs top 

"lex.c" 

L i nput 

zutek 

"zutek. b" 

Force 
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constm . b( 3 ) 


(Celestial ) 


constm . b ( 3 ) 


NAME 

constm 


SYNOPSIS 


subroutine  constm 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 


(sold, told, snew , tnew , part 
sold  ( 6 ) 
told 

snew  (6) 
tnew 

part  (6,6) 


) 


DESCRIPTION 

constm 

Computes  a state  transition  matrix  using  mean  con i c approx imati on . 

sold  old  state  (input) 

told  time  of  old  state  (input) 

snew  new  state  (input) 

tnew  time  of  new  state  (input) 

part  pa~“ti£l  of  new  state  with  respect  tc  new  state  (output) 
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getrnp . b( 3 ) 


(Celestial ) 


getrnp. b(3) 


NAME 

getrnp 


SYNOPSIS 

subroutine  getrnp  ( date , dates , cdetut , t rnp , rnp , hangl e ) 

integer  date  (5) 

double  precision  dates 

double  precision  cdetut  (2) 

double  precision  trnp 

double  precision  rnp  (3.3) 

double  precision  hangl e 


DESCRIPTION 

getrnp 

Computes  rnp  matrix  at  given  calendar  date. 

date  year-month-dav -hour -m i nute  of  oase  oate  (input) 

dates  seconds  of  base  date  (input) 

cdetut  j u! i an  ephermis  to  Julian  universal  conversion  constants  (input) 
trnp  time  after  base  date  (in  seconds)  for  rnp  matrix  (input) 
rnp  rotation  nutation  precision  matrix  (output) 

hangl e hour  angle  (output) 
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moopos . b( 3 ) 


(Celestial ) 


NAME 

moopos , moonup 


SYNOPSIS 

subroutine  moopos  (t,r) 
double  precision  t 
double  precision  r (3) 

entry  moonup 


DESCRIPTION 

moopos 

Computes  the  moon  pos i t i on  by  interpolation  f rom  the  epnemer i 
by  moonup . 

t current  time  ( i nput ) 

r moon  position  at  current  time  (output) 

moonup 

Creates  moor,  ephemeris  based  on  xxmoon  parameters. 


moopos . b( 3 ) 


file  created 
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rotate . b( 3 ) 


(Celestial ) 


rotate . b( 3 ) 


NAME 

rotate 


SYNOPSIS 

subroutine  rotate  ( b j d , de 1 tat , cdetut . np , rnp , rascm ) 

aouDle  precision  bjb 

double  precision  aeltat 

double  precision  cdetut  (2) 

double  precision  np  (3.3) 

double  precision  rnp  (3,3) 

double  precision  rascm 


DESCRIPTION 

rotate 

Analytically  generates  the  true  hour  angle  of  greenwich,  the  precession, 
nutation,  precession-nutation.  and  geographic  transformation  matrices  for 
the  eartn.  All  matrices  are  referenced  to  a base  coordinate  frame  defined 
by  the  mean  equator  and  vernal  equinox  of  the  earth  at  the  epoch  1950.0. 

bjd  fcjd  = base  jui ian  date 

deltat  delta  in  hours  from  base  Julian  date 

cdetut  array  of  constants  used  i r determining  the  difference  between 
ephemeris  time  ano  universal  time 

np  nutation-precession  matrix 

rnp  rctat i on-nutat lon-precess i on  matrix 

rascm  g^esnwi ch  mean  hour  angle 
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sunpos . b( 3) 


(Celestial ) 


sunpos . b( 3 ) 


NAME 

sunpos.  sunup 


SYNOPSIS 

subroutine  sunpos  (t,r) 
double  precision  t 
double  precision  r (3) 

entry  sunup 


DESCRIPTION 

sunpos 

Computes  the  sun  position  by  i nterpo 1 at i on  from  the  ephemeris  file 
by  sunup . 

t cur rent  time  ( i nput  ) 

r sun  pos i t i on  at  current  time  ( output ) 

sunup 

Creates  sun  ephemeris  based  on  xxsun  parameters. 
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twobod.b(3)  (Celestial)  twobod.b(3) 


NAME 

twobod 


SYNOPSIS 

subroutine  twobod  (mu, tau,x,y) 
aouole  precision  mu 
double  precision  tau 
double  precision  x (6) 
double  precision  y (6) 


DESCRIPTION 

twobod 

Propagates  a vector  using  Goodyear's  two  universal  variable  scheme, 
mu  gravi tat ional  parameter  (input) 

tau  time  step  (input) 

x initial  state  (input) 

y final  state  (output} 
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do! 1 ar . b( 3 ) 


( Charut i 1 ) 


dol 1 an . b( 3 ) 


NAME 

dollar 


SYNOPSIS 

subroutine  dollar  (x, lx) 
integer  lx 
character * 1 x (lx) 


DESCRIPTION 
dol 1 ar 

Fills  final  blank  characters  of  input  string  with  dollar  signs.  Input  lx 
is  index  of  character  to  start  at,  returns  1st  nonDlank  or  non  dollar  sign 
index  in  lx.  Note  that  last  character  is  always  a dollar  sign. 

lx 

x 


length  of  string  ( i nput/output ) 
character  string  ( input/output ) 
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1 stf nd . b( 3 ) 


( Charut i 1 ) 


1 stf nd . b( 3 ) 


NAME 


1 stf nd 


SYNOPSIS 


subroutine  Is 

tf  nd 

( 

i nteaer  iiist 

integer  lx 

character^l  x 

( lx 

) 

character*!  l 

i st 

o 

DESCRIPTION 
1 stf nd 

Searches  list  for  entry  x.  The  search  begins  at  the  end  (entry  iiist),  and 
continues  to  the  beginning.  On  return  iiist  is  thus  the  last  index  of  the 
list  with  the  name  x or  else  0,  in  which  case  there  were  no  entries  found. 


i 1 i s 
I x 


length  of  list  on  input,  index  of  item  on  ex i t ( i nput/cutput ) 
length  of  an  entry  in  bytes  (input) 
x search  item  (input) 

list  list  to  search  (input) 
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nstrng . b( 3 ) 


( Charut i 1 ) 


nstrng . b( 3 ) 


NAME 

nstrng 


SYNOPSIS 

subroutine  nstrng  ( number , st r i ng ) 
integer  number 
character*?  string 


DESCRIPTION 

nstrng 

Converts  an  integer  to  a character  string  with  the  proper  suffix, 
numbe-  input  integer 
string  output  string 
COMMENTS 

T ne  numoer  is  limited  by  0 < number  < 326S7 . 
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qxstuf . b( 3 ) (Charutil)  qxstuf.b(3) 

NAME 

qxstuf,  xblank,  xlblnk 
SYNOPSIS 

subroutine  qxstuf  (l,p,i1) 

Integer  1 

character * i p ( ! ) 
i nteger  1 1 

entry  xbl ank  (1 , p ) 

entry  x 1b Ink  (l.p.il) 

DESCRIPTION 

qxstuf 

Sets  character  array  to  blanks  and  finds  first  nonblank  in  string. 

I lengtn  of  character  string 

p character  string  to  be  blanked 

II  index  to  non  blank 
xb 1 ank 

Sets  cnaracter  arrav  to  blanks, 
x Ibl nk 

Finos  1st  non  Diann  in  string. 
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qxval u . b( 3 ) 


( Charut i 1 ) 


qxva 1 u . b ( 3 ) 


NAME 

axval u 


SYNOPSIS 

subroutine  qxva'iu  (l,p,i1) 
integer  1 

character  " c (1) 
i nteaer  i 1 


DESCRIPTION 
qxva 1 u 

Converts  string  tc  integer. 

1 1 ength  of  character  string  ( i nput ) 

p character  string  to  be  deciphereo  (input) 

i 1 index  tc  nor  blank  (output) 
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x i 2chr . b( 3 ) (Charuti 1 ) 


NAME 

x i 2chr 


SYNOPSIS 

subroutine  xi2chr  (l.p) 
integer  1 
character *1 2 p 


DESCRIPTION 
x i 2chr 

Converts  integer  to  character. 

1 length  of  character  string  (output) 

p character  string  to  be  blanked  (input) 


PAGE  IS 
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x i 2chr . b( 3 ) 
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xnth. b( 3 ) 


( Charut i 1 ) 


xnth . b( 3 ) 


NAME 

xnth 


SYNOPSIS 

subroutine  xnth  (1,ntn) 
integer  i 
characte^*^  nth 


DESCRIPTION 

xnth 

Obtains  2 character  ordinal  string  from  an  integer. 

i i nteger  ( i nout ) 

nth  ordinal  string  (output) 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ORIGINAL  PAGE  IS 
OF  POOR  QUALITY 


aijkq.b(3)  (Coordinate)  aijkq.b(3) 


NAME 

aijkq,  a12lq,  a123q,  a131q,  a132q,  a212q.  a213q,  a231q,  a232q,  a312q, 

a3l3q,  a321q,  a323q 

SYNOPSIS 

subroutine  aijkq  (alpha, q) 
double  precision  alpha  (3) 
double  precision  q (4) 

entry  al21q  (alpha, q) 

entry  a123q  (alpha, q) 

entry  a131q  ( a 1 pha , q ) 

entry  a132q  (alpha, q) 

entry  a212q  (alpha, q) 

entry  a213q  (alpha, q) 

entry  a23 1 q (alpha, q) 

entry  &232q  (alpha. q) 

entry  a312q  (alpha, q) 

entry  a313q  (alpha, q) 

entry  a321q  (alpha, q) 

entry  a223q  (alpha, c) 

DESCRIPTION 

aijkq 

Converts  euler  angles  to  quaternion  elements. 

alpha  euler  angles  in  sequence . 1 =rol 1 , 2=p i tch , 3=yaw  (input) 
q quaternion  elements  generated  from  the  euler  sequence  (output) 

a121q 

Performs  a rol 1 -pi tch-rol 1 to  quaternion  operation., 
a 1 23q 

Performs  a rol 1 -pi tch-yaw  to  quaternion  operation, 
a 1 3 1 q 

Performs  a rol 1 -yaw- rol 1 to  quaternion  operation, 
a 1 32q 

Performs  a rol 1 -yaw-pi tch  to  quaternion  operation. 
a2  1 2q 

Performs  a p i tch-ro 1 1 -p i tch  to  quaternion  operation. 
a2 1 3q 

Performs  a p i tch- rol 1 -yaw  to  quaternion  operation. 
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a i j kq . b( 3 ) (Coordinate)  aijkq.b(3) 


a23 1q 

Performs  a pi tch-yaw-rol 1 to  quaternion  operation. 
a232q 

Performs  a pitch-yaw-pitch  to  quaternion  operation. 


a3  12c 

Performs  a yaw-roll -pi tch  to  quaternion  operation. 


a3  1 3q 

Performs  a yaw-rol 1 -yaw  to  quaternion  operation. 


a32  1 q 

Performs  a yaw-p i tch- rol 1 to  quaternion  operation. 


a323q 

Performs  a yaw-pi tcn-vaw  to  quaternion  operation. 
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c2shl.b(3)  (Coordinate)  c2shl.b(3) 


NAME 

c2shl 


SYNOPSIS 

subroutine  c2shl  (x,y,s) 
double  precision  x (6) 
double  precision  y (6) 
double  precision  s (6) 


DESCRIPTION 

c2shl 

Obtains  modified  shell  coordinates  from  two  cartesian  vectors, 
x reference  vehicle  state  (input) 

y target  vehicle  state  (input) 

s modified  shell  coordinates  in  order  of  x , y , z . xdot , yaot , zdot 

(output) 
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cart . b( 3 ) 


( Coordinate ) 


cart . b( 3 ) 


NAME 

cart 


SYNOPSIS 

subroutine  cart  (mu.c.x) 
double  precision  mu 
double  precision  c ( £ ) 
double  precision  x (6) 


DESCRIPTION 

cart 

Converts  clasical  elements  to  cartesian  elements, 
mu  gravitational  parameter  (input) 

c classical  elements  in  fol lowing  order 

1.  semimajor  axis  or  semilatus  rectum  (if  parabolic) 

2 . eccent r icity 

3 . inclination 

4.  ascending  node 

5 . arguement  of  peri  gee 

6.  true  anomaly  (input) 

x cartesian  position  and  velocity  (output.) 

COMMENTS 

If  eccentricity  is  one . tne  orbit  is  assumec  to  oe  parabolic  anc  the  first 
element  is  treated  as  tne  semilatus  rectum  rather  tnan  the  semimajor  axis. 
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cl  as . b( 3 ) 


ORIGINAL 
OF  POOR 


(Coordinate) 


NAME 

cl  as 


SYNOPSIS 

subroutine  clas  (mu, x,c) 
double  precision  mu 
double  precision  c (6) 
double  precision  x (6) 


DESCRIPTION 
c 1 as 

Converts  cartesian  elements  into  classical  elements 
mu  gravitational  parameter  (input) 

c classical  elements  in  order : 

1.  semimaior  axis  or  semilatus  rectum 

2.  eccentricity 

3 . i nc 1 i nat i on 

4.  ascend  ind  mg  node 

5.  arguement  of  oerigee 

6.  true  anomaly  (output) 

x cartesian  state  ( incut) 


page  is 
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eul er . b( 3 ) 


(Coordinate) 


eul er . b( 3 ) 


NAME 

eu  1 er 


SYNOPSIS 

subroutine  euler  ( Kop , n , al pha . q , rmat ) 
integer  kop 
integer  r 

double  precision  alpha  (3) 
double  precision  q (4) 
double  precision  rmat  (3,3) 


DESCRIPTION 
eul  er 

Expresses  a rotation  as  a sequence  of  euler  angles,  a set  of  quaternion 
elements,  and  a set  of  transf ormat i on  matrix  elements.  Given  one  of  these, 
euler  generates  the  other  two.  It  must  be  told  the  input  type  and  the 
required  euler  angle  sequence. 

kop  the  input  type  ... 

1 = euler  angles 

2 = quaternion 

3 = transf ormat i on  matrix 

n tne  euler  seauence  (three  digits),  wnere  ... 

1 = rol 1 

2 - pitch 

3 - vau 

e.g.  1 32  - roll.  yaw.  pitch 

alpha  tne  euler  angles  which  Describe  the  rotation.  they  may  be  either 

the  i nput  or  an  output . 

q the  quaternion  which  describes  the  rotation.it  may  be  either  the 

i nput  or  an  output 

rmat  the  t ransf ormat i or  matrix  which  desc rices  tne  rotation.  it  may  be 

eithe^  the  input  or  an  output. 
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f rame3cJ . c(  3 ) 


(Coordinate) 


f rame3d. c( 3 ) 


NAME 

Frame3  - forms  orthogana!  frame  from  3 dimensional  vectors  x.y.z. 


SYNOPSIS 


int  Frame3( frame.x.y) 
double  * f rame , *x , *y ; 


DESCRIPTION 
F rame3 

forms  orthogana!  frame  from  3 dimensional  vectors  x,y,z.  The  X axis  is 
along  x,  the  Z axis  along  x cross  y and  the  Y completes  the  triad.  A 1 is 
returned  if  x and  y are  not  perpend i cu 1 ar  and  the  frame  is  trivialized. 
Else  a 0 is  returned.  The  axes  vectors  are  stored  in  order  XfY,Z. 
Interpreted  as  a matrix  stored  Dy  rows,  tne  frame  is  thus  the 
transformation  that  takes  coordinates  in  the  frame  defining  the  vectors  x 
and  y to  the  coorai nates  in  the  frame  they  define. 
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1 ax . b( 3 ) 


(Coordinate) 


1 ax . b( 3 ) 


NAME 

1 ax 


SYNOPSIS 

subroutine  lax  (s,m, omega) 
double  precision  s (6) 
double  precision  m (3,3) 
double  precision  omega  (3) 


DESCRIPTION 


1 ax 

Computes  LVLH  axes  g i ven  a geocent r ic  cartesian  state  as 

s i nput  state  vector  i n geocent r i c cartesian  coord i nates 

m rotation  matrix.  This  rotates  inertial  to  LVLH  (output) 

rowl  = unit  (V  x R)  x 2 
row2  = 2 x X 
row3  = - unit  (R) 

omega  velocity  correction  vector  (ve i x Pos/(r  x r))( output) 
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1st .b(3) 


( Coordinate ) 


1st .b(3) 


NAME 

1 st 


SYNOPSIS 

subroutine  1st  ( x i , xo , 1 m , omega ) 
double  precision  xi  (6) 
double  precision  xo  (6.) 
double  precision  1m  (3,3) 
double  precision  omega  (3) 


DESCRIPTION 
1 st 

Computes  Win  state  given  inertial  state  anc  inertial  to  Ivlh  matrix. 


xi  input  inertial  state 

xo  output  Ivlh  state  wher-e 

PosO  = 1m  * Posi 

VelO  = 1 rr.  * (Veli  + Posi  x omegaj 
lm  transformation  matrix  from  inertial  tc  Ivlh  coordinates 

omega  velocity  correction  vector  (input) 
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q i j ka . b( 3 ) 


( Coord i nate ) 


q i j ka . b( 3 ) 


NAME 

qijka,  a121a.  q123a.  q131a,  a132a,  q212a.  q2l3a,  q231a,  q232a,  q312a, 

q3 1 3a , q321a,  q323a 


SYNOPSIS 

subroutine  qijka  (q, alpha) 
double  precision  c (4) 
double  precision  alpna  (3» 


entry 

q12  la 

( q , a 1 pha ) 

entry 

q 1 23a 

( q , a 1 pha ) 

entry 

q 1 3 1 a 

( q, a 1 pha ) 

entry 

q 1 32a 

( q , a 1 pha ) 

entry 

q2  12a 

( q , a 1 pha ) 

entry 

q2  1 3a 

( q, al pha) 

entry 

d23  la 

t q , a! pha ) 

entry 

q232a 

( q . al pha ' 

entry 

q3  1 2a 

l q , al pha ) 

entry 

c3  1 3a 

( q . a 1 pha i 

entry 

q32  la 

( q , a 1 pna ) 

entry 

a323a 

(q.al pha  > 

DESCRIPTION 

qijka 

Converts  quaxermor  elements  into  euler  angle  elements, 
q quaternion  ( input) 

alpha  euler  angles  (output)  1 = roi 1 , 2=p i ten . 3-yaw  generated  from  the 
quatern i on 

q 1 2 1 a 

Performs  a rol 1 -pi tch-rol 1 operation. 


q 1 23a 

Performs  a rol 1 -p i tch-yaw  operation. 


q131a 

Performs  a rol 1 -yaw-rc 1 1 operation. 


q 1 32a 

Performs  a rol 1 -yaw-pi tch  operation. 


q2  1 2a 

Performs  a p i tch- rol 1 -p i tch  operation. 


q2  1 3a 

Performs  a p i tch- rol 1 -yaw  operation. 
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q i j ka . b ( 3 ) ( Coord i nate ) q i j ka . b ( 3 ) 


q23  1 a 

Performs  a p i tch-vaw- ro 1 1 operation. 
q232a 

Performs  a p i tch-yaw-p i tch  operation. 
a3  12a 

Performs  a yaw-rol 1 -d i tch  operation. 
q3  1 3a 

Performs  a yaw-roll -yaw  operation. 
q32  la 

Performs  a yaw-pi tch- rol 1 operation. 
q323a 

Performs  a yaw-pitch-yaw  operation. 
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r st . b( 3 ) 


( Coord i nate ) 


r st . b( 3 ) 


NAME 

rst 


SYNOPSIS 

subroutine  rst  (xl,x2.xb) 
double  precision  xl  (6) 
double  precision  x2  (6) 
double  precision  xb  (24) 


DESCRIPTION 

rst 


Computes 

relative 

states.  Output  buffer  is  xl,  x1-x2,  x2,  x2-x1 

xl 

state 

one 

( i nput ) 

x2 

state 

two 

( i nput ) 

xb 

state 

buffer  (output) 
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uax . b( 3 ) 
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( Coordi nate ) 


NAME 

uax 


SYNOPSIS 

subroutine  uax  (s,m) 
double  precision  s (6) 
douole  precision  m (3.3) 

DESCRIPTION 

uax 

Computes  u,v,w  axes,,  given  * a geocentric  cartesian  state. 


s 

input  state 

vector  in  geocentric  cartesian  coordinates 

m 

rotation  matrix. 

This  rotates  cartesis  to  UVW  (output) 

row  1 = 

uni  t 

( Pos ) 

row2  - 

W x L 

J 

row3  = 

uni  t 

( Pos  x V e 1 ) 

uax . b(  3 ) 
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ust . b( 3 ) 


(Coordinate) 


ust . b ( 3 ) 


NAME 

ust 


SYNOPSIS 

subroutine  ust  ( x i , xo . um ) 
double  precision  xi  (6) 
oouole  precision  xo  (6) 
double  prec i s i on  um  (3,3) 


DESCRIPTION 

ust 

Computes  uvw  state  given  relative  inertial  state  ana  inertial  to 
mat r i x . 

xi  inertial  state  (input) 

xc  uvw  state  (output) 

um  transformation  matrix  from  inertial  to  uvw  coordinates  (input) 


uvw 
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uvw . c( 3 ) 


(Coordinate) 


NAME 

UVW_Cart  - UVW  coordinates 
SYNOPSIS 


double  *UVW_Cart(UVW,Xtrgt ,Xoase) 
double  *UVw7*Xtrgt , *Xbase; 


DESCRIPTION 

UVV_Cart 

Returns  pointer  to  UVW  position  and  velocity  cf  target  with 
base  state  (position,  velocity).  If  UVW  is  null,  a local 
for  the  coordinates,  otherwise  the  space  indicated  by  UVW  is 


uvw . c( 3 ) 


respect  to  a 
buffer  is  used 
used . 
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uvwl vh. b( 3) 


(Coordinate) 


uvwl vh . b( 3 ) 


NAME 

uvwl vh 


SYNDPSIS 

subroutine  uvwlvh  (xu,w,xl) 
double  precision  xu  (6) 
double  precision  w 
double  precision  xl  (€) 


DESCRIPTION 
uvwl vh 

Computes  lvlh  coordinates  from  uvw  info, 
xu  uvw  coordinates  (input) 

w angular  rate  of  local  vertical  frame  (input) 

xl  lvlh  state  (output) 
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uvwmat . b( 3 ) 


(Coordinate ) 


NAME 

uvwmat 


SYNOPSIS 

subroutine  uvwmat  (x.rn.r.w) 
double  precision  x (6) 
aouble  precision  m (3,3) 
double  precision  r 
douole  precision  w 


DESCRIPTION 

uvwmat 

Computes  uvw  to  inertial  matrix. 


x inertial  state  (input) 

m uvw  tc  inertial  matrix  (output) 

coll  = uni t ( Pos ) 
col  2 * coll  x col  3 
col  3 = um  t ( Pos  x V ) 

r radius  of  vehicle! input ) 

w anaular  rate  of  local  vertical  frame  ncrm(Pos 

( output ) 
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df data . b( 3 ) 


( Downf on ) 


df data . b( 3 ) 


NAME 

df data 
SYNOPSIS 

block  data  dfaata 

DESCRIPTION 
df data 

Intializes  common  blocks. 
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df nput . b( 3 ) 


(Downf or ) 


df nput . b( 3 ) 


NAME 

df HDUt 
SYNOPSIS 

suDroutine  dfnput  (status) 
mteaer  status 

DESCRIPTION 

dfnput 

processes  the  inputs 

status  the  input  processing  error  flag 
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dwnf mt . b( 3 ) 


( Downf or ) 


dwnf mt . b( 3 ) 


NAME 

dwnf mt 


SYNOPSIS 

program  dwnfmt 


DESCRIPTION 

dwnfmt 

Drives  the  aownlist  processing, 
dwnfmt  < Input_file  > Output_file 

Files  BUGS  and  OUTPUT  are  alsc  created  at  execution  level  to  contain  debug 
and  additional  summary  print. 
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eb2asc . c( 3 ) 


( Downf or ) 


eb2asc . c( 3 ) 


NAME 

eb2asc,  getbi ts  - routine  to  convert  ebcdic  to  ascii 


SYNOPSIS 


et2asc(strng1 , strng2 , m) 
i nt  *st rng 1 ; 
int  *strng2; 
i nt  *m; 

getbi ts( w , s , n) 
int  n ; 
int  s ; 
unsigned  w; 


DESCRIPTION 

eb2asc 

C routine  to  convert  ebcdic  to  ascii 

strngl  string  of  characters  to  be  convert  (input 

strng2  string  of  characters  (output) 

rr  numoer  of  characters  to  oe  convert  ( input 

getbi ts 

return  (right  adjusted)  the  n-bit  field  of  w that  begins 
n number  of  bits  (inout  ) 

s begin  post  ion  (input) 

w working  iPdffer  (output) 
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genout . b( 3 ) 


( Downf or ) 


genout . b( 3 ) 


NAME 

genout 


SYNOPSIS 

subroutine  genout  (file) 
i nteger  file 


DESCRIPTION 

genout 

Builds  the  nominal  file  frames  and  record  buffers  and  directs  the  output 

file  construction. 

file  the  output  file  designation  used  for  looping 
COMMENTS 

1.  All  data  frames  to  all  output  files  depend  on  the  organization  of  the 
data  ids. 

2.  The  data  is  expected  to  be  containec  on  tne  CCT  m eitne^  36  bit  or  72 
bit  word  lengths. 

3.  Only  data  for  which  the  CCT  address  table  has  non-zero  entries  will  be 
processed . 
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getdat . b( 3 ) 


( Downf or ) 


getdat . b( 3 ) 


NAME 

getdat 

SYNOPSIS 

subroutine  getoat  (recfnd) 

integer  recfnd 

DESCRIPTION 

getdat 

Obtains  parameters  for  orbiter  CCT  downlist  tape  and  calls  a subroutine  to 

reformat  intc  the  internal  files. 

recfnd  flag  indicat  iong  data  scar,  records  fcund(  output ) 

COMMENTS 

1.  The  subroutine  gethdr  will  have  already  found  the  first  record  of  the 
first  data  scan  so  that  the  cct  is  currently  positioned  at  the 
beginning  of  the  second  record. 

2.  The  begin  scan  will  be  determined  by  the  input  timbeg  which  will  be 

compared  to  the  time-tag  values  f ounc  in  each  scan  in  order  to  find 

the  scan  from  which  data  processing  may  begin. 

3.  The  end  scan  will  be  determined  by  the  incut  timend  which  will  be 

compared  to  the  time- tag  values  founc  in  eacn  scan  in  order  to  find 

the  scar  i r-  which  data  processing  will  end. 
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gethdr . b(  3 ) 


( Downf or ) 


gethdr . b( 3 ) 


NAME 

gethdr 


SYNOPSIS 

sucroutme  gethdr  (recfnd) 
integer  recfnd 


DESCRIPTION 
ge t ndr 

Reads  the  headers  off  of  the  downlist  CCT  to  obtain  information  on 
msid's  to  be  processed. 

recfnd  the  record  status  flag 


the 
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NAME 

getout.  opnout.  nitout,  bldout,  delout,  wrtout,  clsout 
SYNOPSIS 

subroutine  getout  (dat id , f i 1 e , fnam , frmid. frmsta . hdr i d , 
recsta , uni t i d , wrdf rm ) 
douole  Drecision  dtim 
integer  datid 
integer  file 
character  foam 
character *4  frmid 
integer  frmsta 
character  hdnd 
integer  recsta 
integer  unitid 
integer  wrdfrm 

entry  opnout  ( f i 1 e . f nam , hdr i d . wrdf rm , recsta ' 

entry  nitout  ( f rm i d , f i 1 e ) 

entry  bldout  ( dat i d , f i 1 e , frmsta ) 

entry  delout  (dat id. file) 

entry  wrtout  ( f i 1 e , recsta ) 

entry  clsout  ( f i i e , recsta ) 

DESCRIPTION 

getout 

Builds  frames,  deletes  frames,  collects  frames  into  records  and  writes 
records  to  file. 

dtim  data  scan  time 

datia  loop  counter  on  tne  aata  id  relative  current  file 

file  tne  output  file  designation 

fnam  the  character  file  name  of  the  output  file 

frmid  dummy  variable 

frmsta  the  frame  status  flag 

hdr id  the  character  type  of  output  file 

recsta  the  record  status  flag 

unitid  the  unit  number  associated  with  current  file 
wrdfrm  the  number  of  words  per  f rame- exc 1 uch ng  tne  4 header  woras 
opnout 

Opens  all  output  files  and  writes  header  records.  Stores  copy  of  i/o 
packet  for  each  output  file. 

ni tout 

Initializes  frame  buffer, 
bl dout 
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getout . b( 3 ) 


( Downf or ) 


getout . b( 3 ) 


Builds  frame  buffer. 


ae 1 out 

Deletes  current  frame  locates  next  valic  ent^y  ir  dare  seauence. 


w^tout 

Writes  frame  to  record. 


cl sout 

Closes  output  files. 


COMMENTS 

1.  All  data  frames  to  all  output  files  depend  on  the  organization  of 
data  ids. 

2.  The  data  is  expected  to  oe  contained  or  the  CCT  in  either  36  bit  or 
Dit  word  lengths. 

3.  Only  data  for  which  the  CCT  address  table  has  non-zero  entries  will 
processed . 


the 

72 

be 
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ibmcvt . c( 3 ) 


(Downf or ) 


i bmcvt . c( 3 ) 


NAME 

ibmcvt,  fetcnbits  - routine  to  convert  IBM  DP  data  to  HP  DP  data 


SYNOPSIS 


i bmcvt ( buf , n . type ) 
int  *buf; 
i nt  *n; 
int  * type ; 

f etchbi ts ( x , p , k ) 
unsigned  x; 
int  p ; 
int  k ; 


DESCRIPTION 

ibmcvt 

C routine  to  convert  IBM  DP  data  to  HP  DP  data 
buf  array  containing  numoer  to  convert 

n no.  entries  in  array 

type  tyoe  of  conversion  0 - sp  ; i - dp 

f etchc i ts 

function  tc  get  K-bits  from  word(mght  adjustified) 
x work  i ng  1 ocat  on(  output ) 

p begin  position  (input) 

k 'number 'of  bits  Mnout) 
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( Downf or ) 


match . b( 3 ) 


NAME 

match 


SYNOPSIS 

subroutine  match  (msfnd) 
i nteger  msfnd 


DESCRIPTION 

match 

Matches  msid's  from  the  current  header  record  to  the  name! is 
associated  with  desired  output  file.  For  each  matched  msid  fill  i 
indexed  by  internal  ordering  to  provide  tne  number  of  data  samples 
relative  the  data  scan  of  the  first  sample  in  the  scan. 

msfnd  current  count  of  matched  m/sib's 


t inputs 
i a table 
, address 
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obtf i 1 . b( 3 ) 


NAME 

obtf  i 1 , cl sf i 1 


SYNOPSIS 

subroutine  obtf i 1 
entry  clsfil 


ORIGINAL  PAGE  IS 

OF  POOR  QUALITY 


DESCRIPTION 
obtf i 1 

Drives  the  process  which  will  accumulate  the  data  for  output  frames  and 
write  tnem  to  files. 


clsfil 

C 1 oses  all  files. 


COMMENTS 

1.  All  data  frames  to  all  output  files  depend  on  the  organization  of  the 
data  ids. 

2.  The  data  is  expecteo  tc  be  contained  or  tne  CCT  ir  eithe~  36  bit  or  72 
bit  word  lengths. 

3.  Only  data  for  wnic r the  CCT... address  table  has  non -zero  entries  will  be 
processed . 
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taperd . c( 3 ) 


( Downf or ) 


tapercLc(3) 


NAME 

taperd  - buffer  input  routine  for  tape 
SYNOPSIS 


taoerdt buf , n,  uni t ) 
ini  *buf  ; 
i nt  *n; 

1 nt  *uni t ; 


DESCRIPTION 

taperd 

read  tape 

buf 

n 

un  i t 


info  routine 

buf f er ( output ) 
number  of  words( input) 
tape  drive  uni t( input) 
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val dat . b( 3 ) 


( Downf or ) 


val dat . b( 3 ) 


NAME 

va 1 dat 


SYNOPSIS 

subroutine  valdat  (relcyc,pointr) 
integer  pointr 
integer  re  1 cvc 


DESCRIPTION 

valdat 

Finds  data  associated  with  various  msid's  at  addresses  specified  in  the 
table  constructed  in  match.  Converts  data  to  internal  units  and  constructs 
table. 

pointr  the  pointer  to  the  current  scan  in  nbuf 
releye  tne  relative  cycle  number  currently  being  processec 
COMMENTS 

1.  All  data  frames  to  all  output  files  depend  on  tne  oraamzatior,  of  the 
data  ids. 

2.  Tne  data  is  expected  to  be  containeo  on  tne  CCT  in  either  3£  bit  or  72 
bit  word  lengths. 

S.  Only  data  for  which  tne  CCT  address  table  has  non^erc-entner  will  De 
processed . 
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ndhead . b( 3 ) 


NAME 

ndhead 


SYNOPSIS 

subroutine  ndhead  (u, ir.t.x.e) 

integer  u 

integer  ir 

double  precision  t 

cnaracter~4  x 

integer  e 


DESCRIPTION 

ndhead 

Prompts 

u 

i r 

t 

x 

e 


i nput  of  format  page  1 ay out . 
display  unit 
current  record  (output) 
time  tag  (input/output) 
frame  id  (output) 
edit  flag  ( output ) 
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ndnflz.b(3)  (Dsputil)  ndnflz.b(3) 


NAME 

ndnflz,  ndfnpt,  ndfnit 


SYNOPSIS 

subroutine  ndnflz  ( nf  , stat , tbegi n , tend , t , dt ) 

integer  nf 

integer  stat 

double  precision  tbegin 

double  precision  tend 

double  precision  t 

double  precision  dt 

entry  ndfnpt  (nf.stat) 

entry  ndfnit  ( nf , tbea i n , tend , dt , t , stat ) 


DESCRIPTION 
ndnf 1 z 

Sets  up  input  files  for  numeric  display, 
nf  number  of  files  needed  (input) 

stat  status  flag  - set  negative  if  error  encountered  (output) 
toegin  begin  time  (input) 

tend  eno  time  (input) 

t time  tag  ( i nput ) 

dt  time  step  (input) 

ndfnpt 

Sets  uo  inout  files  for  numeric  display, 
ndf ni t 

I n i 1 1 1 i a 1 i zes  input  files  to  begin  time  and  sets  base  file  options 


COMMENTS 

File  3 is  assumed  to  be  an  attitude  file. 
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ndpage . b( 3 ) 


NAME 

ndpage 

SYNOPSIS 

subroutine  ndpage 

DESCRIPTION 

napage 

Checks  if  new  page  is  needed,  if  so  then  new  page  number  written. 
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nxtnd . b( 3 ) 


NAME 

nxtnd 


SYNOPSIS 

subroutine  nxtnd 
double  precision 
double  precision 
integer  nstep 
double  precision 
integer  done 


( t , dt , nstep , tend , done ) 
t 

dt 

tend 


DESCRIPTION 

nxtnd 

Sets  next  output  time  either  from  a base  file  (bfopt  non-zero),  or  by 
specified  time  step  dt  (bfopt=0),  done  is  set  to  1 if  past  end  time  tend, 
else  set  to  0.  If  nstep  > 0,  then  edit  status  is  not  checked.  If  bfopt  > 


0,  then 

base 

file 

i s pos i t i on  to 

next  uned i ted 

t 

next 

t i me 

( i nput/output ) 

dt 

step 

s i ze 

( i nput ) 

nstep 

step 

for 

running  off  base 

^ile  ( i nput ) 

tend 

stop 

t i me 

( i nput ) 

done 

done 

flap 

t out out ) 

COMMENTS 

Base  file  data  must  be  less  than  100  woras . 
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xf 8dmp . b( 3 ) 


NAME 

xf  8dmp 


SYNOPSIS 

subroutine  xfSdmp  ( pf mt t u , i op , i r ) 
integer  pfmt 
integer  u 
integer  i op  (40) 
i nteger  i r 


DESCRIPTION 
xf 8dmp 

Provides  octal  dump  of  standard  file  format  record  in  80  or  130 
format . 

pfmt 

u 

i op 
i r 


format  flag:  - means  130  col,  else  80  (input) 

display  unit  ( i nput ) 

i/o  packet  ( i nput/output ) 

current  record  (input) 


co 1 umn 
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xqwget . b( 3 ) 


(Dsput i 1 ) 


xqwget . b( 3 ) 


NAME 

xqwget,  xqwint 


SYNOPSIS 

subroutine  xqwget  ( t , x 1 , x2 , q , w , s ) 

double  precision  t 

oouble  precision  xl  (6) 

double  precision  x2  (6) 

double  precision  q (4) 

oouble  precision  w (3) 

integer  s 

entry  xqwint 


DESCRIPTION 

xqwget 

Obtains  trajectory  and  attitude  information  from  files.  Entry  xqwint 
initialize  time  buffer  ana  should  be  called  upon  entry. 

t desired  time  (input) 

xl  first  state  (output) 

x2  2no  state  (output) 

c;  attitude  quaternion  (output) 

w angular  velocity  (output) 

s status  word:  set  to  - 1 if  error  encountered  (output) 

xqwint 

Initializes  time  buffer. 
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f iche . c( 3 ) 


( F i ch) 


f i che . c(  3 ) 


NAME 

main  - generate  a tape  which  can  be  read  by  the  f i ch  reader 


SYNOPSIS 


void  ma i n ( argc , argv ) 
int  argc; 
char  *argv[ 3 ; 


DESCRIPTION 
ma  i n 

generate  a tape  which  can  be  read  by  the  fich  reader.  The  format  of  the 
tape  is  S-track.  1600  bpi . ASCII,  132  character  fixed  length  records.  The 
program  fiche  can  generate  a multi -reel  file.  However,  the  fiche  processor 
wi  l 1 treat  each  tape  as  an  individual  file.  It  reauires  three  user  inputs 
which  are  put  on  tne  command  line. 

usage  : fiche  file  run_id  tape_drive  where 

file  - name  of  print  file  to  put  on  the  tape 
rumd  - Univac  type  runid  660??? 
taDe  drive  - 0 or  1 
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NAME 

center 


SYNOPSIS 

subroutine  center  ( i op , tget , t , x . n , nrec , status ) 

integer  tod  (*) 

double  precision  tget 

double  precision  t (2) 

double  precision  x (n.2) 

integer  n 

integer  nrec 

integer  status 


DESCRIPTION 
center 

Returns  data  bracketing  a given  time, 
iop  i/o  packet  (input/output), 

tget  given  time  (input), 
t bracketing  times  (input/output), 

x data  associated  with  t ( input /output ) . 

n numbe**'  of  double  precis. von  data  words  oer  frame  ( i nout ) . 

nrec  record  number  ( i nput /output ) . 
status  i/o  status  flag  (output). 


center . b( 3 ) 
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get . b( 3 ) 


NAME 

get 


SYNOPSIS 

subroutine  get  ( i op , f i ntrp , tget , t , x , status ) 

integer  ioo  ( * ) 

aouble  precision  tget 

double  precision  t (2) 

douDle  precision  x (*) 

integer  status 


DESCRIPTION 

get 

Interpolates  data  to  desired  time  using  routine  fintrp.  The 
routine  must  be  of  the  form: 
fintrp ( 1 1 , x 1 , 1 2 , x2 , t , x ) 

wner.e 

tl  = first  time 

xi  = data  associated  with  tl 

t 2 = second  time 

x2  = aata  assoc i a ted  with  t2 

t = desired  time 

x - interpolated  data  at  t (output) 
lop  i io  packet  ( inout/output )/ 

tget  time  tag  of  oesirec  pos..vel.  t input;, 
t oracketing  time  tags  used  (output), 

x data  interpolated  to  desired  time  (output), 

status  i/o  status  (output). 


i nterpol at i on 
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NAME 

obread 


SYNOPSIS 

subroutine  obread  ( i op , nrec , t , i d , ed , obias , obs  , res , status ) 

integer  i op  ( * ) 

integer  nrec 

double  precision  t 

character  id 

integer  ed 

double  precision  obias 
double  precision  obs 
double  precision  res 
integer  status 


DESCRIPTION 

ooread 


RELBET 

read  interface  to  GFF  routines 

i Ob 

i/'o  packet  (input/output) 

nrec 

desired  record  number  (input) 

t 

time  tag  (output) 

i d 

frame  10  (output) 

ed 

edit  status  (output) 

ob  i as 

observation  bias  (output) 

obs 

observation  (output) 

res 

residual  (output) 

status 

i/c  status  (output) 
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NAME 

obwr  i t 


SYNOPSIS 

subroutine  obwr it  ( iop, nrec , t , i d , ed , ob i as . obs , res. status) 

integer  iop  (*) 

i nteger  nrec 

double  precision  t 

character  i d 

integer  ecs 

double  precision  obias 
double  precision  obs 
double  precision  res 
integer  status 


DESCRIPTION 
obwr i t 

RELBE7  write  interface  to  GF F routines. 

iop  i./o  packet  ( i nput /out put ) 

nrec  oesired  record  number  (input) 

t time  tag  ( i nput  ) 

id  frame  id  (input) 

ec  ed^t  status  ( i nput  ' 

obias  observation  bias  (input) 

obs  observation  (input) 

res  residual  (input) 

status  i/o  status  (output) 
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NAME 


SYNOPSIS 

subroutine  riels  (iop, status) 
integer  iop  (*) 
integer  status 


DESCRIPTION 

riels 

Closes  GFF  file  of  standard  RELBET  type, 
iop  i/o  packet  (input/output), 

status  i/o  status  (output) 
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NAME 

nl cntr 


SYNOPSIS 

subroutine  rlcntr  ( iop.tm.n.rec, t.e.stat) 

i nteger  i op  ( * ) 

double  precision  tm 

integer  n 

integer  rec  (n) 

aouble  precision  t (n) 

douole  precision  e (*) 

integer  stat 


DESCRIPTION 
r 1 cntr 

Centers  array  of  unedited  points  from  RELBET  GFF  about  a desired  time  tm. 
The  times  and  records  of  the  points  are  returned.  Warning  messages  are 
issued  if  the  array  cannot  be  centered  because  an  end  of  file  is 
encountered.  Error  Messages  are  issued  if  not  enough  points  are  found.  The 
routine  assumes  tnat  tne  times  have  been  initialized  on  the  first  call  so 
that  the  last  time  in  the  array  is  less  than  tne  first  time,  or  was 
initialized  by  first  calling  rlmidl. 

i op  i /c  package  for  file  (input) 

tm  desireo  time  (input) 

r number  of  frames  in  output  arravf  input', 

rec  recoras  corresDond i na  to  entries  in  e ( i nput/output ) 


t array  of  time  tags  for  entries  (i nput/output ) 


e 

array  buffer 

for  entries 

( i nput/output ) 

stai 

status  flag; 

>=G  is  good, 

-I  is  ecf . e 

is  error  (output 

ORIGINAL  PAGE  IS 

OF  POOR  QUALITY 
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r 1 dsp . b( 3 ) 


NAME 

rldsp.  r 1 pdsp . rlhdsp 
SYNOPSIS 

subroutine  rldsp  (p,u) 
integer  p (45) 
integer  u 

entry  rlpdsp  (p,u) 
entry  rlhdsp  (p,u) 

DESCRIPTION 
r 1 dsp 

Displays  input/output  packet  to  specified  unit, 
p i/o  packet  (input) 

u display  unit  number  ( i nput ) 

r 1 pdsp 

Displays  i/o  packet  info  such  as  unit,  type,  name,  size  and  time  span, 
r I hasp 

Displays  i/o  packet  information  such  as  unit.  type.  name.  header, 
span,  size,  creation  and  upaate  dates. 


1 1 me 
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(Files) 


r 1 ed i t . b( 3 ) 


NAME 

rledit,  rlfwds,  rlbwas 


SYNOPSIS 

subroutine  rledit  ( i op , rec , t , f i a . e , stat ) 

i nteger  i op  ( * ) 

integer  rec 

double  precision  t 

character  f i d 

double  precision  e (*) 

integer  stat 

entry  rlfwds  ( lop , rec , t , f id t e , stat ) 
entry  rlbwds  ( 1 op , rec ? t , f i d t e , stat ) 


DESCRIPTION 
r 1 ed i t 

Entries  tc  obtain  next  unedited  frame.  Note  that  status:  -1  for  end  of 

file  +1  edit  value  for  okay  < -10  for  error 

lop  i/c  package  for  file  (input) 

rec  records  cor respond i ng  to  entries  in  e ( i nput/outout  ) 

t bts',  of  time  tags  for  entries  ( i nout/outout ) 

fid  frame  id  ( i nput/output ) 

e array  buffer  for  entries  (input/output) 

stat  status  flag:  >=0  is  good,  -1  is  eof  , e is  error  (output  .) 
r 1 f wds 

Reads  forward  to  the  next  frame  or  the  end  of  file. 


r 1 bwds 

Reads  backward  to  the  next  frame  or  the  begining. 


ORIGINAL 

OF  POOR 


IS 


QUALITY 
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NAME 

rlfill,  rl2end,  rlback.  rl2beg,  rlfrnt 
SYNOPSIS 

subroutine  rlfill  ( i op , n . i ep , f nd , rec , t , e , s tat ) 

double  precision  e (*) 

integer  fno 

integer  i ep 

i nteger  i op  ( * ) 

integer  n 

integer  rec  (n) 

integer  stat 

double  precision  t (n) 

entry  rl2end  ( i op , n, iep , f nd , rec , t , e , stat ) 
entry  rlback  ( i op , n , f nd , rec , t , e , stat ) 
entry  r 1 2ceg  ( iop, n, iep, fnd, rec, t.e, stat ) 
entry  rlfrnt  ( iop,  r.f  fnd,  rec,  t ,e,  stat ) 

DESCRIPTION 

rlfill 

Entry  points  for  filling  up  frame  arrays  o^  unedited  points:  rlback  and 

rl2end  attempt  tc  fill  entries  in  a^rav  after  specified  inoex.  If 
unsuccessful  rlfrnt  and  rloack  error  exit.  If  unsuccessful  r!2enc  and 
r 1 2oeg  move  tne  array  all  tne  way  tc  the  end  or  f^ont  respectively  ano 
reset  the  index  iep  to  the  new  start  or  end  index  note  that  the  number  of 
length  of  each  entry  in  the  array  must  be  the  same  as  the  frame  length  or 
an  error  will  occur.  Index  use  and  start  is  as  follows:  Input  r!2end: 
i ep=5 tart  of  data,  filling  starts  at  iep+fnd+1  r!2peg:  iep=current  ist 
index,  filling  starts  at  iep- 1 output  rl2end  iep^current  1st  index,  filled 
from  iep  to  n rl2beg  iep=current  last  index,  filled  from  1 tc  iep  rlfrnt 
filled  from  n to  n-fnd  rlback  filled  from  i to  fnd 

e array  buffer  for  entries  ( i nput/output ) 

fnd  number  of  points  found  ( i nput/output ) 

iep  pointer  to  end  of  e (input) 

iop  i/o  package  for  file  (input) 

n number  of  entries  to  be  found  ( input) 

rec  records  correspondi ng  to  entries  in  e (input/output) 

stat  status  flag:  >*0  is  good,  -1  is  eof , e is  error  (output) 

t array  of  time  tags  for  entries  (input/output) 

r 1 2end 

Attempts  to  rill  entries  in  array  from  iep  to  n. 
r 1 back 

Attempts  to  fill  entries  in  array  at  fnd+1. 
r 1 2beg 

Attempts  to  fill  entries  in  array  from  1 to  iep. 
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r 1 f rnt 

Attempts  to  fill  entries  in  array  from  n to  n-fnd 
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(Files) 


rlmidl .b(3) 


NAME 

r 1 mi ai 


SYNOPSIS 

subroutine  rlmidl  ( i op , tm , n , f nci , rec , t , e , stat ) 

integer  top  ( * ) 

aouoie  precision  tm 

integer  n 

integer  fnd 

integer  rec  (n) 

double  precision  t (r.) 

double  precision  e (*) 

integer  stat 


DESCRIPTION 

rlmidl 

Centers 

i op 

tm 

n 

fnd 

rec 

t 

e 

stat 


an  array  of  frames  about  a desired  time  from  scratch, 
i/o  package  for  file  (input) 
aes i red  time  (input) 

number  of  entries  to  be  founo( input) 
number  of  points  f oundi i nput/outout ) 
records  'correspond! ng  to  entries  in  e( input /output  : 
array  of  time  tags  for  ent r i es ( i nout/output ) 
array  buffer  for  entries  ( i nout/ output ) 

status  flag:  > = 0 is  good,  - 1 is  eof , e is  error { output ) 
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r 1 new . b( 3 ) 


NAME 

r 1 new 


SYNOPSIS 

sub rout ine  r 1 new  ( i op , name , type , unt , ndata .status  ) 

integer  i op  (*) 

character  name 

character  type 

integer  unt 

integer  ndata 

integer  status 


DESCRIPTION 
r 1 new 

Opens  a new  GFF  file  in  accordance  with  the  standard  RELBET  usage. 

iod  i/o  packet  (output). 

name  file  name  ( i nput ) . 

type  file  type  (input). 

unt  unit  number  (input). 

ndata  number  of  double  precision  data  items  in  frame  (input), 
status  i/c  status  (output). 
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NAME 

r 1 open 


SYNOPSIS 

subroutine  riopen  ( i op , name , unt , uze . status ) 

integer  top  ( -= ) 

character  name 

integer  unt 

integer  uze 

integer  status 


DESCRIPTION 
r 1 open 

Opens  a old  GFF  file  in  accordance  with  the  standard  RELBET  usage. 

i op  i/o  packet  (output). 

name  file  name  (input). 

unt  unit  number  (input). 

uze  use  flag  (input). 

status  i/o  status  (output). 
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r 1 read . b( 3 ) 


NAME 

rl ^ead 


SYNOPSIS 

subroutine  rlread  ( i op , nrec , t , i d , ed , data , status  ) 

integer  i op  (*) 

integer  nrec 

double  precision  t 

character  id 

integer  ed 

double  precision  data  (*) 
integer  status 


DESCRIPTION 
r 1 read 
RELBET 

i op 

nrec 

t 

i d 
ed 

data 

status 


read  f rom  GFF  files, 
i/o  packet  ( i nout/ output ) . 
aes i rec  record  number  ( l nput ) . 
t ime  tag  ( output ) . 
f rame  i d ( output  1 . 
edit  status  (.output), 
output  data  f rom  frame  (output ) . 
i/o  status  (output). 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ORIGINAL  PAGE  R 

OF  POOR  QUALITY 


r 1 1 i me . b( 3 ) 


(Files) 
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NAME 

r 1 t ime 


SYNOPSIS 

subroutine  rltime  ( i op , t , nrec , status ) 

integer  i op  ( * ) 

double  precision  t 

integer  nrec 

integer  status 


DESCRIPTION 

rltime 

RELBET  interface  to  GFF  routine  gftime.  Returns  record  directly  before 
first  record  or  end  of  file  and  big  time  tag  (+-  1e30). 

iop  i/o  packet  (input/output). 

t time  tag  (output). 

nrec  desirec  record  number  (input). 

status  i/o  status  (output). 
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r 1 wr i t . b( 3 ) 


NAME 

r 1 wr  i t 
SYNOPSIS 

subrout i ne  r 1 wr i t ( i op , nrec , t , id, ed, data, status) 

integer  top  (*) 

integer  nrec 

double  precision  t 

character  i d 

integer  eb 

double  precision  data  (*) 
integer  status 

DESCRIPTION 

rlwrit 

RELBET  write  to  GFF  files 
i op  i/o  packet  (input/output), 

nrec  des i red  record  numoer  ( i nput  j . 
t time  tag  ( i nput ) . 

i e f name  id  ( i nput  ) . 

ec  edit  status  input), 

data  data  f rom  f rame  ( i nput  j . 
status  i/o  status  (output). 

COMMENTS 

Differs  from  gfwrit  in  that  writing  past  the  end  of  the  file  is  not  an 
error,  even  if  append  mode  is  not  specified  and  cannot  write  to  header. 
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NAME 

cvprop 


SYNOPSIS 

subroutine  cvprop  ( tol d , xol a , tnew , xnew , cov ) 

double  precision  told 

double  precision  xold  (nsoi ) 

double  precision  tnew 

double  precision  xnew  (nsol) 

double  precision  cov  (nsol, nsol) 


DESCRIPTION 

predict  covariance 


cvprop 


told 

oi  d 

time  ( 

i nput ) . 

xol  d 

o 1 d 

state 

( i nput ) . 

tnew 

new 

time  ( 

i nput ) . 

xnew 

new 

state 

( i nput ) . 

cov 

cova 

r i ance 

( i nput/output 
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NAME 

dka  1 


SYNOPSIS 

block  data  dkal 

DESCRIPTION 

dkal 

This  block  data  routine  initializes  the  common  used  by  this  program 
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dsmth . b( 3 ) 


NAME 

dsmth 


SYNODSI $ 

block  data  dsmth 

DESCRIPTION 

dsmth 

This  block  data  routine  initializes  the  common  used  by  this  program 
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NAME 

getnxt 


SYNOPSIS 

suoroutine  getnxt  ( tnxt , pob , ofc , obtyp , ods i g , ps top ) 

double  precision  ob 

character *4  obtyc 

double  precision  obsig 

double  precision  tnxt 


DESCRIPTION 

getnxt 

get  next  time  for  sequential  filter, 
ob  observation  (output), 

obtyp  observation  type  (output). 

oosig  observation  sigma  (output).  flag  to  tel]  of  observation 

(output).  flag  to  tell  if  stop  time  (output). 

tnxt  time  of  observation  (output). 


t i me 
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kal man . b( 3 ) 


NAME 

kal man 


SYNOPSIS 

subroutine  kal man 
double  precision  t 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 


(t,x,c,ob,y, aydx , v , edcr i t , r 

( nsol  ) 

( nsol , nsol ) 


x 

c 
ob 

y 

dydx  (nsol ) 
v 

edcr  i t 
r 

uwterm 


red i t , uwterm ) 


DESCRIPTION 
ka 1 man 
ka 1 man 

t 

x 

ob 

y 

dydx 

v 

edcr  1 1 
uwterm 


filter. 

current  time  (input). 

state  vector  ( input ). 

covariance  ( i nput /output ) . 

true  observation  (input). 

computed  observation  (input). 

partials  of  observation  w.r.t.  state  (input). 

residual  variance  (input). 

edit  cnte^icn  (input). 

residual  (output).  residual  edit  flag  (output), 
the  uderwe i ght i no  term 
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NAME 

krelc,  kreloc 


SYNOPSIS 

subroutine  krelo  (t,x) 
double  precis  ion  t 
double  precision  x ( 12) 

entry  kreloc 


DESCRIPTION 

krelo 

ka 1 man  relative  filter  traj  output  rout i ne  for  sequent i a 1 filter 
t filter  time  (i nput ) . 

x filter  state  (input), 

krel oc 

cl ose  output  file 
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NAME 

i nvrs 


SYNOPSIS 

subroutine  invrs 
integer  n 
double  precision 
double  precision 
double  precision 


(n.s.ai , eps ) 

a ( n . n ) 

ai(n.n) 

eps 


DESCRIPTION 
i nvrs 

matrix  convert  routine  for  smooth 
n dimension  of  matrix 

a matrix  to  be  inverted  (input). 

ai(n,n)  inverted  matrix  (output), 
eps  threshold  for  singularity  (input). 
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( F i 1 ter ) 


nkal  . b( 3 ) 


NAME 

nkal 


SYNOPSIS 

subroutine  nkal 


DESCRIPTION 

nkal 

This  subroutine  fetches  the  user  inputs  for  the  common  blocks  neeaea  by 
this  program 
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NAME 

nsmth 


SYNOPSIS 

subroutine  nsmth 


DESCRIPTION 

nsmth 

This  subroutine  fetches  the  user  inputs  for  the  common  blocks  needed  by 
this  program 
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( F i 1 ter ) 


ooest . b( 3 ) 


NAME 

obest 


SYNOPSIS 

subroutine  ooest  ( t , x , obtyp , obs i g , y , dydx 

double  precision  e 

double  precision  t 

double  precision  x (nsol) 

characters  obtyp 

double  precision  obsig 

double  precision  y 

double  precision  dydx  insol) 

double  precision  v 

integer  nob 


DESCRIPTION 

obest 

observation  estimate  for  sequential  filt 
e edit  criterion  (output) 

t t i me  ( i nput ) . 

x state  ( i nput  ) . 

obryc  observation  tvoe  (input), 

cbsig  observation  sigma  (input), 

y estimated  observation  (output), 

dyax  partials  of  observations  w.r.t. 

v variance  of  observation  (output) 

nob  observation  number. 


, v , e , nob ) 


er . 


state  ( output ) . 
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obout . b( 3 ) 


( F i 1 ter ) 


obout . b( 3 ) 


NAME 

obout.  obcls 


SYNOPSIS 

subroutine  obout  ( t , obtyp , red i t , ob , r , v , o , bv ) 

double  precision  t 

character*4  obtyp 

double  precision  ob 

double  precision  r 

double  precision  v 

double  precision  b 

double  precision  bv 

entry  obcls 


DESCRIPTION 

obout 

output  routine  for  sequential  filter 
t filter  time  (input). 

obtyo  frame  id  of  current  obs  edit  status  of  observation 
ob  observation  valu 

r residual  value 

v value  cf  residual  variance 

b solution  bias 

bv  bias  variance 

obcl  s 

close  output  file 
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pcpt . b( 3 ) 


NAME 

pcpt 


SYNOPSIS 

subroutine  pcpt  (pfc) 
double  precision  p (nsol 
double  precision  c (nsol 


, nsol  ) 
, nsol  ) 


DESCRIPTION 

pcpt 

perf orm 

P 

c 


operat ion  ph i *c*ph i transpose . 
state  transition  matrix  (input), 
covara i nee  ( i nput/ output ) . 
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pred. b( 3 ) 


NAME 

pred 


SYNOPSIS 

subroutine  pred  (t,x,c,tnxt) 
double  precision  t 
douole  precision  x (nsol) 
double  precision  c (nsol, nsol) 
double  precision  tnxt 


DESCRIPTION 

pred 

predict  state,  covariance  at  next  time  for  sequential  f 
t old  time  ( i nput/output ) . 

x state  (input/output), 

c covariance  (input/output), 

tnxt  next  time  (input). 


i 1 ter  . 
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( F i 1 ter ) 


psout . b( 3 ) 


NAME 

psout,  pscls 


SYNOPSIS 

subroutine  psout  (t,x) 
double  precision  t 
double  precision  x (12) 

entry  psc 1 s 


DESCRIPTION 

psout 

output  rout i ne  for  sequent ial  filter 
t filter  time  (input), 

x filter  state  (input), 

pscl  s 

dost  output  file 
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ptbl . b( 3 ) 


NAME 

ptbl 


SYNOPSIS 

integer  function  ptbl  (t.tbl) 
aouole  precision  t 
douois  precision  tfcl  (*) 


DESCRIPTION 

ptbl 

Returns  a pointer  to  a time  increasing  table  to  the  entry  with  the  maximum 
time  tag  at  or  before  a given  time.  Sentinal  time  tags  are  expected  at  the 
beginning  and  end  of  the  table,  less  tnan  and  greater  than,  respectively, 
any  expected  time  tag. 

t desired  time  (input). 

tbl  time  increasing  table  (input). 
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sf i 1 t . b ( 3 ) 


NAME 

Sf  ilt 

SYNOPSIS 

program  sfilt 

DESCRIPTION 

sfilt 

RELBET  Kalman  filter  dr i ver 
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sf 1 n i t . b( 3 ) 


( F i 1 ter ) 


sf  i rvi  t . b(  3 ) 


NAME 

sf i ni t 


SYNOPSIS 


subroutine  sfinit  ( 

t.x.c) 

double 

precision  t 

aoub I e 

precision  x 

(nsol  ) 

doubl e 

precision  c 

( nsol , nsol  ) 

DESCRIPTION 

sfinit 

initialize  sequential  filter 


t 

initial 

time  ( output ) . 

X 

initial 

state  ( output ) . 

c 

initial 

covariance  ( output ) 
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sf out . b( 3 ) 


NAME 

sf  out 


SYNOPSIS 

subroutine  sfout  ( t , x , c , pstop ) 
double  precision  t 
double  precision  x (nsol) 
douol e precision  c ( nso 1 .nsol ) 


description 

sfout 

output  routine  for  sequential  filter 
t filter  time  (input), 

x filter  state  (input). 

c covar i ance  matrix  ( i npu t ) . stop  flag  (1 nput ) . 
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smooth. r( 3 ) 


NAME 

smooth 


SYNOPSIS 

subroutine  smooth  ( i nf i 1 , outf i 1 , cpf req , cnrec) 

character *72  inf i 1 

character~72  outfil 

character*72  cpfreq 

character*72  cnrec 


DESCRIPTION 

smooth 

relbet  smoother 
i nf i 1 input  file  name 
outfil  output  file  name 
cofreq  print  frequency 
cnrec  number  of  records 
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snoi se . b( 3) 


NAME 

sno i se 


SYNOPSIS 

subroutine  sncise  (tola, tnew.c) 
double  precision  told 
double  precision  tneiv 
double  precision  c (nsol,nsol) 


DESCRIPTION 
snoi se 

add  state  noise  to  covariance  for  relbet  sequential  filter 


tol  d 

last  time 

( i nput ) . 

t new 

new  time  ( 

i nput ) . 

c 

covar i ance 

( i nput/ou tout ) 
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stm . b( 3 ) 


NAME 

stm 


SYNOPSIS 

subroutine  stm  (pm  , tol  d , xol  ct , tnew , xnew) 
double  precision  phi  (nsol, nsol) 
double  precision  tola 
double  precision  xold  (nsol) 
double  precision  tnew 
double  precision  xnew  (nsol) 


Df  poor 


DESCRIPTION 

stm 

state  transition  matrix 

phi  state  transition  matrix  (output). 

told  oegin  time  (input). 

xold  state  at  old  time  (input). 

tnew  eno  time  (input). 

xnew  state  at  new  time  (input). 
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NAME 

stmrv 


SYNOPSIS 

subroutine  stmrv 
double  precision 
double  precision 
double  precision 
double  precision 


(phi , dt , xol d , xnew ) 
dt 

Dh i (6,6) 
xnew  ( 6 ) 
xo 1 o ( 6 ) 


DESCRIPTION 

stmrv 

state  transition  matrix  for  position  and  velocity  in  orbital 

dt  delta  time  (input). 

phi  state  transition  matrix  (output). 

xnew  next  position  and  velocity  (input). 

xold  last  position  and  velocity  (input). 


mot i on 
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NAME 

stprop 


SYNOPSIS 

subroutine  stprop  (told.t,x) 
double  precision  told 
double  precision  t 
double  precision  x (nsol) 


DESCRIPTION 

stprop 


state 

propagat ion 

told 

old  time  ( i nput ) . 

t 

new  time  ( i nput ) . 

v 

new  state  ( i nput/ output ) 
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NAME 

uvw2m 


SYNOPSIS 

subroutine  uvw2m  (c) 

douole  precision  c insol, nsol) 


DESCRIPTION 

uvw2m 

this  rout i ne  rotates  uvw  coord i nates  to  m5C 
c the  full  solution  state  covar i ance 
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vl  rest . b( 3 ) 


OF  POOR 


?3 


AUTY 


( F i 1 ter  ) 


NAME 

vl rest 


SYNOPSIS 

subroutine  vlrest  ( t , obtyp , ob , v ) 
double  precision  t 
character*4  obtyp 
double  precision  ob 
double  precision  v 


DESCRIPTION 
vl rest 

1 rbet3  variance  estimate  for  sequential  filter, 
and  range  bias 


for  range,  range 


t t i me  ( i nput ) . 


obtyp  observation  type  (input). 

ob  the  actual  observation  of  range  (input) 

v variance  of  observation  (output). 


rate , 
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cmp2sg . c( 3 ) 


NAME 

main,  cmp2sg  - compare  relative  difference  to  computed  sigmas 


SYNOPSIS 


main! argc , arav ) 
int  argc; 
char  **argv; 

char  *cmo2sg( f rame 1 , f rame2a , f rame2b ) 
char  *f rame 1 ; 
char  *frame2a; 
char  *frame2b; 


DESCRIPTION 
mai  n 

cmp2sg  reads  in  two  files  including  a relative  trajectory  difference 
file  and  a file  containing  tne  computed  sigmas  associated  with 
some  filtering  process  in  the  same  frame  format  as  a relative 
tra j ectory  file 

-r indicates  file  name  of  relative  trai  file 

-c i no i cates  file  name  of  s i ama  aeta  -Pile 

-t is  the  threshold  of  comparison  ( default  is 

S indicating  tna t 3 -s i ana  i s a good 
cornDar  i son ') 

Output  text  files  are  CMP_POS  for  position  info 
and  CMP_VE L for  velocity  info 


tne  current  frame  from  Relative  di fference  file  1 
the  frame  from  relative  sigma  file  2 <=  time  of  f rame 1 
the  frame  from  relative  sigma  file  2 > time  of  framel 


NOTE  : 

cmp2sg 

framel 

f rame2a 
f rame2b 
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NAME 

drpst 

SYNOPSIS 

Dlock  data  drpst 

DESCRIPTION 

drpst 

This  block  data  routine  initializes  the  common  used  by  this  program 
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( Fman ) 


eph2rel . c( 3 ) 


NAME 

main,  eph2rel  - reads  two  ephemeris  files  and  creates  relative  trajectory 
file  as  output 


SYNOPSIS 


ma i n(argc , argv ) 
int  argc; 
char  **argv; 

char  *eph2rel ( f ramei , f rame2a , frame 2b) 
double  *f ramei ; 
aouble  *frame2a; 
double  *frame2b; 


DESCRIPTION 
ma  i n 

eph2rel  reads  two  ephemeris  files  and  creates  a relative  trajectory  file 
output.  The  first  ephemer i s_f i 1 e is  tne  base  file  name.  The  second 
ephemer i s_f i 1 e2  is  the  file  to  be  interpolated  for  the  relative  portion  of 
the  frame.  The  output  relative  trajectory  file  is  assigned  the  name  of 
ephemeris  fi1e_REL. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


f i 1 edi t . c( 3 ) 


( Fman ) 


f 11 edi t . c( 3 ) 


NAME 

main,  text_in,  gff_in.  ref__in,  edit_frame  - gff  fils  editor 


SYNOPSIS 


int  main(arac,argv) 
int  argc: 
char  **argv; 

char  *text_in( inf rame t inf i 1 e) 
char  * inframe; 
char  * i nf i 1 e ; 

char  *gff_in( i nf  rame , reference , end ) 
char  *inframe; 
char  ^reference; 
char  *end; 

char  *ref _i n( ref erence , i nf i 1 e ) 
char  ^reference; 
char  * i nf i 1 e ; 

char  *ed i t_f  rame ( i nf  rame , reference ) 
cha^  * inf rame: 
char  ^reference; 


DESCRIPTION 

the  following  parameters  are  set  by  command  line  arguments 
ma  i n 

Filedit  reads  in  one  of  tv;o  edit  sources  to  be  used  to  edit  a 
specified  file  depending  upon  certain  program  dependent 
criterion. 

Multiple  frame  ids  can  be  specified  ic  indicate  the  frames 
to  be  edited 
USAGE : 

filedit  <-£ >< - c>< - 1 ><-c ><-p ><-f >< - g ><-h  >< - * ><- i > 

where 

■a Provides  the  edit  value  to  be  applied. 

Zero  is  the  same  as  default. 

Negative  input  indicates  editted  frames 
are  to  be  uneditted. 

Positive  input  indicates  uneditted 
frames  are  to  be  editted. 

. When  used  with  -c  indicates  that  onl y 
frames  bearing  the* speci f ied  edit  value 
are  effected. 

Def au It  is  999  . 

-t Indicates  file  name  wnerein  edit  intervals 

are  specified  by  two  text  fields  : 

The  first  field  should  be  begin  time 
The  second  field  is  an  end  time  of  edit 
i riterva  1 

Frames  associated  with  specified  (<-p >) 

frame_ids  are  editted  within  text  input 
time  intervals 

Default  is  to  process  whole  file 

-c  Indicates  that  the  edit  process  will 
change  the  edit  status  of  all  frames 
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f i 1 ed i t . c ( 3 ) 


( Fman ) 


filed it. c(3) 


possessing  the  desired  edit  value  input 
using  the  <-a>  option  or  defaulted  to  939. 

For  example  in  the  default  case  frames 
with  999  receive  -999  if  the  proper  edit 
criterion  are  met.  In  this  usage 
negative  values  may  be  used  with  <-a>. 

The  object  is  to  undo  a orevious  edn 
operation  or  reac  a orevious  operation. 

This  option  can  be  used  with  both  <-t> 
and  <-f>  options  and  has  the  same  purpose 

-o indicates  file  name  of  gff  file  to  be  edited 

If  unused  dr  same  as  the  reference  file  name 
tnen  the  reference  file  is  to  be  edited. 

-p indicates  list  cf  frame_ids  to  be  effected 

on  the  file  to  be  editted 

-f indicates  file  name  of  reference  gff  file 

whose  frames  are  used  in  edit  criterion 
of  input  file  frames. 

If  same  as  the  file  to  be  edited  file  name 
then  the  reference  file  is  to  be  edited. 

-h indicates  criterion  for  edit  to  be 

determined  from  frames  on  the  reference  file 

necessary  only  if  -i option  specified 

in  which  case  a aouole  precision  value 
is  expected  wmcn  is  treated  as  a sort 
of  threshold  to  be  interperxeo  as 
ignored  if  -i  option  not  usea 

-i indicates  frame  pos  source  of  edit  criterion 

for  frames  on  the  reference  file, 
if  not  specified  edit  status  portion  assumed 
and  target  frames  will  be  editted  if  the 
edit  status  is  set  tc  ed<t 
of  the  specified  frame  of  input  file 
integer  input  expected  which  indicates  double 
precision  location  on  data  portion  of  frame 

-g indicates  frame_id  source  of  edit  criterion 

for  frames  on  the  reference  file 
(only  one  allowed). 

Ignored  if  reference  file  is  to  be  edited. 

-j indicates  the  type  of  test  used  to  compare 

input  threshold  with  reference  file  frame 
information  as  criterion  for  edit, 

=0:  abs(frame  info)  >=  abs ( threshol d ) 

>0:  frame  info  >=  threshold 
<0:  frame  info  <=  threshold 

ignored  if  -i  option  not  used 
NOTE:  if  the  frame  being  tested 
was  a valid  frame  before  the  test 
then  the  results  of  the  test  will 
change  the  value  of  the  edit  status 
flag  in  some  cases  even  i * the  result 
shows  valid  data,  however  in  this 
case  the  frame  will  still  be  valid. 


gf  f_i  n 
i nf  rame 


current  frame  from  file  1 the  file  to  be  editted 
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f i 1 edi t . c( 3 ) 


reference  the  comparison  frame  from  file  2 <=  inframe 

end  not  used 


this  function  edits  the  inout  frame  on  the  basis  of  the  frame  from  the 
reference  file  which  has  the  greatest  time-tag  <=  tc  the  input  frame 
time_tag  and  returns  the  output  frame  . 

ref  _i  n 

reference  the  input  frame  from  the  reference  file 

infile  unused 


this  function  edits  the  reference  frame  based  on  info  in  the 
reference  frame  and  returns  the  output  frame 


ed i t_f rame 
i nf rame 


input  frame  to  be  editted 


reference 


the  reference  frame 


this  function  examines  the  reference  frame  to  determine  the  edit  status  of 
the  input  frame  and  returns  the  output  frame 
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gbf com . c( 3 ) 


NAME 

main,  gbf com  - me^ge  files 


SYNOPSIS 


main( arac , argv ) 
int  argc; 
char  **argv; 

void  gbf  com  ( out_name  . base__name  , merge_name ) 
char  *out_name . *base_name , *merge_name ; 


DESCRIPTION 
ma  i n 

gbfcom  reads  two  files  and  performs  a merge  using  the  first 

input  file  as  a base  file  and  the  second  file  as  a merge 
file  ie.,  if  two  frames  with  identical  frame  ids  occur  at 
the  same  time  then  the  base  file  frame  is  discarded  and 
the  merge  file  frame  used  the  new  file  is  created  in 
the  f i rst  argument 
Usage:  gbfcom  out  ini  i n2 
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mk i ni t . c( 3 ) 


NAME 

main,  rel_in,  eph2_in,  mkinit  - creates  text  file  from  two  traj  files  or  a 
re  1 traj  file 

SYNOPSIS 


ma in(argc , angv) 
int  argc; 
char  **argv; 

char  * re  1 n(  frame  1 , p^char  ) 
char  *f rame 1 ; 
char  *p_char; 

char  *eph2_i n( frame  1 , f rame2a, f rame2b) 
doubl e *f rame 1 ; 
double  *f rame2a; 
double  *frame2b: 

char  i n i t ( t i me , base . target ) 
double  * t i me , *base ,* target ; 


DESCRIPTION 
ma  i n 

mkinit  reacts  two  trajectory  fives  or  one  relative  trajectory 

file  and  writes  out  text  to  be  used  for  init  1 input  input 
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nrpst . b( 3 ) 


NAME 

nrpst 


SYNOPSIS 

subroutine  nrpst 


DESCRIPTION 

nrpst 

This  suoroutine  fetches  the  user  inputs  for  the  common  blocks  needed  by 
th i s program 
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obsnoi s . c( 3 ) 


NAME 

main,  combine  - obsnois  merges  the  obs  data  with  the  noise  data  into 
file 


SYNOPSIS 


int  ma i n( argc , argv ) 
int  argc: 
char  **argv; 

char  * combi ne( frame , f rame2 , f rame3 ) 
char  *frame; 
char  *frame2; 
char  »frame3; 


DESCRIPTION 
ma  i n 

obsnois  merges  observation  data  and  noise  aata  into  one  file.  The  noise 
data  is  stored  in  the  first  location  of  obs  data.  Usage: 

obsnois  obsfile  noisefile 


The  output  file  is  a binary  file  with  _0N  attacneb  to  the  first  input 
file  (obsfile).  If  any  of  tne  input  files  is  unavailable,  an  error 
message  is  generated. 


Note:  User  neeos  to  run  obsnois  repeat ly  for  eacn  frame  id  until  ail  of 
the  desirable  types  are  completed.  The  output  file  is  tne  input 
file  for  the  next  run.  For  example: 

We  have  the  following  : 

obsnois  fSobs  Obs  ddnois  Na 


The  output  file  is  fSobs_ON.  For  the  next  run.  we  will  have 

obsnois  f8ocs_0N  Obs_ddno i s_ND 

Now  the  output  file  is  fSobs  ON  ON. 


comb i ne 
f rame 


the  current  frame 


frame2  the  beginning  of  the  bracket  frame 

frame3  the. end  of  the  bracket  frame 


merges  the  obs  data  with  the  noise  data.  The  noise  data  is  stored 
in  the  first  location  of  the  data  portion. 


one 
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qaatt . c( 3 ) 


NAME 

main,  angle_rate  - Generates  angular  acceleration  magnitude  text  summary 
and  gf f file. 


SYNOPSIS 


ir.t  ma  i n(  argc  , argv  ) 
int  argc; 
char  **argv; 

char  *ang 1 e_rate ( f rame , ot r ) 
char  *pt r ; 
char  *f rame; 


DESCRIPTION 
ma  i n 

qaatt  provides  output  to  stdout  documenting  attitude  files 
Usage : 

qaatt  <-ex-b > f i lei 

where  -e is  the  maximum  acceptable  angular  acc  magnitude 

(default  . 10) 

-b is  the  mimimum  angular  acc  to  determine  an  event 

( def au 1 t . 0005 ) 

Tne  options  are  parseo  and  the  appropriate  variables  are  set. 

If  a file  is  unavailable,  an  error  message  i s genera ted . 

qaatt  creates  an  output  gff  with  the  angular  acceleration  vector  and 
magni tude 

between  the  two  input  angular  rates: 

the  frame  id  for  tms  file  is  "attr."  Also,  for  any  point  > e and  any 
point  > b,  a record  is  written  to  stdout  containing  time,  "attr,!  , "val  id,; 
or 

"edit*',  duration  .and  magnitude, 
angl e_rate 

computes  angular  rate  and  documents 

ptr  character  po i nter , not  used 

frame  current  frame  of  data 
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qacover . c( 3 ) 


( Fman ) 


qacover . c( 3 ) 


NAME 

main,  cover_file  - Generates  a coverage  history  summary 


SYNOPSIS 


int  ma i n( argc , argv ) 
int  argc; 
char  **argv; 

char  *cover_f i le(f rame.ptr ) 
char  *ptr; 
char  rame; 


DESCRIPTION 
ma  i n 

qacover  provides  output  to  stdout  summarising  the  coverage  of  a specified 
data  type  from  a gff  file.  Usage: 

qacover  < - 1 ><-f > filel 

where  -t is  the  minimum  time  gap  for  lost  data ( def au 1 t 30s) 

frame  id  (default  no  check  on  frame  id) 

The  options  are  parsed  and  the  appropriate  variables  are  set.  The  files 
are  parsec  ano  output  text  is  written  until  the  last  file  has  beer' 
processed.  It  £ file  is  unavailable,  an  e^ror  message  is  generated  ano 
the  next  file  is  processed.  The  output  text  contains  the  start  time  o* 
the  interval,  tne  frame  ic.  data  indicator  t valid. lost  or  edit;,  the 
auratior  o£  the  interval  and  tne  number  o*  points  in  the  interval . 


cover_f  ■:  1 e 

generates  coverage  history 

ptr  character  poi nter , not  used 

frame  current  data  frame 
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qano i s . c( 3 ) 


NAME 

main,  qanois  - generate  textfile  for  noise  statistic  and  binary  file  for 
graphic 


SYNOPSIS 


int  ma i n( argc , argv ) 
int  argc: 
char  **ar gv ; 

char  ^qano i s ( f rame , pt r ) 
char  **rame; 
char  *pt r ; 


DESCRIPTION 
ma  i n 

qanois  provides  output  to  stdout  documenting  noise  statistics  for  obs 

gff  file  and  binary  file  for  graphic.  The  input  is  from  ddncis.  Usage  : 

qano  i s <-  f ><  - i ><  - q ><  -m > i nput  f i 1 e 

where  -f is  the  f rame  i d 

- i is  the  i ndex  tc  d i f f erence  table  to  use  for 

noise  source; defaui t 6tn  number  ) 

-q is  the  quantization  value 

defaui t see  above 

-m is  the  minimum  number  of  points  acceptable  for 

noise  consideration  ( Default  see  above) 

The  options  are  parseo  and  tne  appropriate  variables  are  set. 

If  a file  is  unavailable,  an  error  message  is  generated.  The  output 
text  has  the  following  format: 

Begi  r_time  Datatype  ‘'noise'1  duration  quantized  average_obs  number_of 
of_ncise  value  measurement  points  interval  Ex:  1000.0 

aran  noise  384.0  .01  50.0  90  1384.0  aran 

noise  768.0  .03  9C.0  180 

I nterpretat i on : 

At  1000.0  Range  data  noise  average  .01  meters  for  384.0  seconds 
with  an  average  range  measurement  of  50  meters  anc  a total  of 
90  observation  marks 
. etc . . . 

The  output  binary  file  used  the  following  nam i ng  convent i on  : 

Inputf i 1 e_name  plus  suffix  _N  plus 
first  letter  of  the  frame  id  desired 

The  frame  of  the  output  binary  file  is  described  as  follows: 

Standard  header  where  edit  status  indicates  number  of  points 
in  the  noise  interval 

The  data  portion  of  frame  provides  the  following  info 
End  time  of  noise  interval 
Average  value  of  observation 
Computed  noise  selected  by  Index 


Note:  User  needs  to  run  qanois  repeatly  for  each  frame  id  until  all  of 
the  desirable  types  are  finished. 

the  following  defines  depend  on  the  format  of  the  input  frame 

qanoi  s 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


qanois. c(3) 


( Fman) 


qano i s . c( 3 ) 


f rame 
ptr 


current  frame  of  data 
character  pointer,  not  used 
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NAME 

main,  rrrfile,  jmpcomp  - Generates  a radar  range  versus  range  rate 
difference  history 


SYNOPSIS 


int  mai n( argc , argv) 
int  argc; 
char  **argv; 

char  *rr rf i 1 e ( f rame ) 
char  *frame; 

char  *jmpcomp(f rame.ptr ) 
char  *pt  r ; 
char  *frame; 


DESCRIPTION 
ma  i n 

qaranjmp  provides  output  to  stoout  documenting  jumDS  in  range  compared  with 
range  computed  from  range  rate.  The  following  intervals  are  documented. 
If  range  is  <=  Rbound;  15  <=  dift  < 30 
30  <=  diff 

> Rpouno : 30  <=  < 70 

70  <=  diff  < 100 

100  <=  diff 

Usage : 

qaranjmp  <-r >og > filet,.... 

where:  -r is  Roounc  (default  6000  meters) 

-o i s max i mum  a 1 1 owab 1 e gap  for  computat i on  of 

of  jump  in  range  (default  50  seconds) 

The  options  are  parsed  and  the  appropriate  variables  are  set. 

If  a file  is  unavailable,  ar  error  message  is  generated. 

An  interim  gff  file  is  created  with  tne  same  name  as  tne  input  file 
suffixed  with  RU.  This  file  contains  a recorc  with  the  range  and 

range  rate  in  one  record  and  no  other  observations.  This  file  can  be 
removed  after  program  execution:  it  has  a frame  ic  of  “rand". 

For  each  point  that  falls  ir,  tne  previously  defined  interval  a record 
is  written  to  stdout  containing  start  time  of  interval,  "jump",  "range", 
duration  of  interval,  and  magnitude  of  the  jump. 

rrrf i i e 

creates  a range  and  range  rate  obs  file 
frame  current  frame  of  data  off  obs  file 

j mpcomp 

computes  interval  of  range  jump 

ptr  character  pointer,  not  used 

frame  current  frame  of  data  from  r/rr  file 
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NAME 

main,  star_track,  getangle,  test_print  - Star  Tracker  obs  history 
SYNOPSIS 


int  ma i n( argc , argv  ) 
int  argc; 
char  ~*argv; 

char  *star_t rack ( frame , frame  1 , f rame2 ) 

char  *frame; 

char  *f rame 1 . *f rame2 ; 

char  *getangl e ( frame , i nf i le ) 
char  *frame; 
char  * i nf i 1 e ; 

v# c i h test  pr  i nt  ( now  angle  end) 
double  *now; 
double  angle; 
double  *end; 


DESCRIPTION 
ma  i r. 

Qastar  provides  cutout  to  stdout  summarizing  me  star  observations  or. 
ar.  observation  file.  Usage: 

qastar  <-px-yx-i ><-u ><-t x-q > obsfile  <attfile> 

where  -p  use  the  gff  created  from  previous  run  of 
qastar  (name  inout  via  obsfile)  to 
recompute  printed  output  (attf i le  not  used) . 
where  -y  use  the  Y star  tracked  instead  of  the  2. 

where  -1 defines  the  delta  angle  reflecting  the  low 

noise  thresnclc  setting  to--  spotting  stars 

where  - u defines  tne  oelta  angle  reflecting  the  nign 

noise  threshold  setting  for  spotting  stars 

where  -t ciefines  maximum  time  difference  allowable 

between  i nout  auatermons  anc  cbservat  i ons 
An  input  observation  file(  obsfile)  and  attitude  fi!e(  attfile)  are 
requ i red 

inputs  (except  when  using  the  <-p>  option,  see  above. 

The  Z star  tracker  is  assumed  unless  the  -y  option  is  requested. 

The  options  are  parsed  and  the  appropriate  variables  are  set. 

Output  text  is  written  for  each  interval  where  two  consecutive 

observat i ons 

are  fixed  on  the  same  inertial ly  fixed  object.  This  interval  is 
accumu 1 ated . 

The  text  includes  the  following  information:  time  of  beginning, 

" star ", "edi t ", durat ion  of  interval, 

average  angle  over  the  interval.  An  output  gff  file  is  created  with  the 
name  the  same  as  the  input  obs  file  plus  tne  suffix  ST.  The  data  on 

the 

file  is:time  of  the  end  of  interval,  " star " , mode , az i mu th , el eva t i on  and 
angle . 

NOTE:  The  angle  placed  on  each  frame  is  the  angle  between  the  pcinting 
vectors  represented  by  the  previous  val id  frame  and  the  current  frame. 

star_t rack 

determines  star  obs 

frame  current  data  from  obs  file 
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qastar . c( 3 ) 


f rame2 

getangl e 
frame 

i nf i le 

retrieves  the 

test_pr i nt 
now 

anal  e 


current  data  from  attitude  file  that  span  frame 

current  data  from  inertial  star  tracker  angle  off  file 
not  used 

inertial  pointing  angle  d i f f erence 

time  tag  of  cur rent  vector 

angle  measure  between  last  inertial 

pointing  vector  and  current  vector 


end 

thi s f unct i on 


time  tag  of  last  vector 
tests  the  angle  tolerance  for  printed  outout 
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qasv . c( 3 ) 

NAME 

main,  sensed_vel  - 

Summarizes  the  sensed  velocity  fil 

e and  creates  a sensed 

acceleration  file 


SYNOPSIS 


int  ma i n( argc , argv ) 
int  argc; 
char  **argv; 

char  *sensed__ve1  ( f rame , pt r ) 
char  *ptr; 
char  *frame; 


DESCRIPTION 
ms  i n 

qasv  provioes  output  to  stdout  documenting  edited  sensed  velocities  and 
burn  intervals.  Usage: 

qasv  <-e ><-b > filel 

where  -e is  the  maximum  acceptable  sensed  acceleration 

(default  1001 

-t is  the  minimum  burn  sensed  acceleration 

(defaul t .00369) 

Tne  options  are  Darsed  and  the  appropriate  variables  are  set.  The  files 
are  parseo  and  output  text  is  written  until  the  last  fl'*e  has  Deep 
processed.  7 t ?.  rile  is  i j n p v p i 1 a P 1 e . ar  error  messsoe  is  oene  rated  and 
the  next  file  is  processed.  A gff  file  is  generateo  containing  the 
sensed 

acceleration  vectors  and  the  magnitude  ox  the  sensed  acceleration  at 
t imes 

of  events . • The  frame  id  for  this  file  is  "sacc . " 

For  each  point  >e  cr  >fc  a record  is  written  to  stdout  containing  start 
time,  “valic"  or  “edit",  "sacc'  . delta  time,  anc  magnitude  of  the  sensed 
acceleration.  Tne  intervals  are  not  accumulated 

sensed_ve 1 

computes  sensed  accel . & documents  interval 
ptr  pointer,  not  used 

frame  current  data  for  file 
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rdwt . c( 3 ) 


NAME 

main,  write_file  - write  a subset  of  a file  with  user  specified  frame  id 
and  time 

SYNOPSIS 


int  ma  i n( argc . argv ) 
int  argc; 
char  **argv ; 

char  *wr i te_f i 1 e ( f rame , pt r ) 
char  *ptr; 
char  *frame; 


DESCRIPTION 
ma  i n 

Rdwt  read  in  a file  and  write  to  the  file  with  user  specified  frame  and 
time.  Usage: 

rdwt  <-f ><-to ><-e > file 

wnere  -f frame  ia  (default  nc  cneck  on  frame  id) 

-b beg  in  time  ( def aul t tc  file  beg  in  time) 

-e end  time  ( def au It  to  file  end  time) 

The  options  are  parsed  anc  the  appropriate  variables  are  set.  Tne  file 
is  parsed  and  output  binary  file  is  written.  If  input  file  is 
unavailable,  an  error  message  is  generated. 

wr i te_f i 1 e 

ptr  pointer,  not  used 

f rame  cur rent  frame  write  to  a file  witn  user  spec i f i ed  time  and 

frame  io 
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read_set . c(  3 ) 


NAME 

main.  read_set , pr i nt_record  - reaos  SET  file  which  is  output  from 
tape  output  processor 


SYNOPSIS 


ma i n(argc . argv) 
i nt  argc; 
char  **argv; 

vo i d read_set ( ) 

char  *pr  i nt_record( time. count ) 
double  time; 
i nt  *count; 


description 
ma  i n 

read_set  reads  in  a binary  file  created  by  the  stop  processor 
and  provides  a printed  output  option  over  a specified 
time  span 

-f indicates  file  name  of  SET  file 

_b indicates  begin  time  in  gmt  seconds 

~e indicates  last  time  in  amt  seconds 

-p indicates  print  frequency  option 

Nonpositive  means  first  and  last  only 


sensor 
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( Fman ) 


read^s i t . c ( 3 ) 


NAME 

main,  readmit , pr  i nt_record  - read  the  SIT  data  output  by  stop 


SYNOPSIS 


ma i n(arac , argv ) 
int  argc; 
cnar  **argv; 

vo i d read_s i t ( ) 

char  *pr i nt_reccrd( t i me , count ) 
double  time; 
int  *count; 


DE  SCR  I PT  I ON’ 
ma  i n 

read_sit  reads  in  a binary  file  created  by  the  stoo  processor 
and  provides  a printed  output  option  over  a specified 
time  span 

-f indicates  file  name  of  SIT  file 

-b indicates  begin  time  ir  amt  seconas 

-e indicates  Iasi  Time  in  gmt  seconds 

-p indicates  or i nt  f reauencv  oot i or 

Nonpos 1 1 i ve  means  first  anc  1 ast  oni  y 
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r 1 vsrl . c( 3 ) 


NAME 

main,  rlvsrl 


SYNOPSIS 


ma i n( argc , argv ) 
int  argc; 
char  **argv; 

char  * r 1 vs r 1 ( frame  1 , f rame2a , f rame2b) 
doubl  e *frarrte  1 ; 
double  *frame2a; 
douole  *frame2b; 


DESCRIPTION 

rrj»  i n 

rlvsrl  reaas  two  relative  trajectory  files  and  determines  the 
diference  between  states  in  UVW  coordinates 


I 
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rptost . b( 3 ) 


NAME 

rptost 


SYNOPSIS 

program  rptost 


DESCRIPTION 

rptost 

Converts  roll/pitch  to  shaft/trunnion  reference. 
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search . c( 3 ) 


NAME 

File,  Time,  Radius,  Begin,  End.  Prime_id,  Seconded,  Helo.  main,  search 
gf f file  procor 


SYNOPSIS 

FILE  *F i 1 e ; 

double  T 1 me , Rad i us , Beg i n , End ; 
char  *Pr  ime_id[  ] , *Second__id[  ] ; 
int  Help; 

int  main(angc,argv) 
int  argc; 
char  **argv; 

vo i d search ( ) 


DESCRIPTION 
ma  i n 

this  program  extracts  intervals  of  desired  info  frames  from  tne  text  files 
produced  by  the  re  1 bet  qa  processors  where  the  frames  have  tne  general  form 
as  follows: 

t i me- tag( number ) IDistring)  I NFO_T YPE (string!  duration! number  ) number 
the  information  used  on  each  frame  comes  from  the  first  three  fields  Put 
the  complete  frame  is  read  in  and  output  if  applicable 

invoke  this  function: 


search  -n  -f - 1 -r -b -e 

where : 


-h  - indicates  help  option  which  displays  primary  anc 
dependent  labels  available  for  extraction 
The  use  of  this  option  precludes  all  others 
-f  - indicates  the  fi'e  name  of  the  input  text  file 

-t  - is  the  origin  tine  of  interest 

-r  - is  the  radius  about  the  origin  which  encloses  the  time 

interval  of  interest 

-b  - is  the  begin  time  of  the  specified  interval  of  interest 
-e  - is  the  end  time  oc  the  specified  interval  of  interest 
-p  - indicates  the  lis:  of  frame  IDs  desired 

-s  - indicates  the  1 s:  of  INFO_TYPEs  desired  associated 

wi th  the  list  of  IDs 
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si n2nl . c( 3 ) 


NAME 

main,  out_rel  , out_cov,  out_bias,  file_size 
SYNOPSIS 


i nt  ma i n( argc , argv ) 
int  argc; 
char  x^argv; 

char  *c>'jt_re  1 ( i nf  rame ) 
char  * inf rame; 

char  *out_cov( inframe) 
char  * inf rame; 

char  *out_b  i as  ( i nf  rame ) 
char  * i nf  rame ; 

int  f i 1 e__s i ze ( f i 1 e_i d ) 
char  *f i 1 e_i d ; 


DESCRIPTION 
ma  i n 

slr.2ri  reads  an  arbitrary  sized  (nsol  > solution  file  output  bv 
either  the  kalmar  or  smoothing  filter  anc  generates 

- relative  trajectory  files  for  solutior  states 

- covariance  file  in  tne  form  of  UVW  relative  trajectory  files 

where  the  noise  sigmas  represent i ng  the  base  state 
solution  and  relative  state  solution  i r.  UVW  o* 
the  base  solution  state  are  presentee  as  a 12-  element 
vector  and  the  bias  sigmas  follow 

- bias  solution  file  containing  the  bias  solution  for  as  many 

obs  solveo  for*  pe^  frame 

s 1 n2r 1 < -r > f i I e 1 < -c > f i 1 e2  < -c > f i 1 e3  < -n > nsol 

< - s > f i 1 eA 

where  -r indicates  create  the  rel  traj 

-c i nd i cates  create  the  covar i a nee  sol n file 

-b indicates  create  tne  bias  sol n file 

-n is  the  size  of  the  solution  vector 

( def au It  16) 

-s is  the  i nput  solution  file 
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NAME 

main,  stop  - sensor  tape  output  processor 


SYNOPSIS 


main! arac , argv ) 
int  argc; 
char  **argv; 

char  * s top ( frame  1 . f rame2a , f rame2b ) 
char  *f rame  1 ; 
char  *frame2a; 
char  *frame2b; 


DESCRIPTION 
ma  1 n 

stop  reads  in  two  files  including  a relative  trajectory  file 
and  a sensor  data  file  wnich  is  created  by  the  downlist 
program  specifically  for  the  purpose  of  writing  two 
binary  files  of  SENSOR  input  data  called  SIT  and  SET 

-r indicates  file  name  of  relative  Traj  file 

-s indicates  file  name  of  sensor  data  file 


stop 
f rame ' 

f rame2a 
f rame2b 


the  current  frame  from  Sensor  file  1 

the  frame  from  relative  traj  file  2 <=  time  of  frame*, 
the  frame  from  relative  traj  file  2 > time  of  framei 
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aero . b( 3 ) 


NAME 

aero 


SYNOPSIS 

subroutine  aero  ( rv , rvt , rsun , rnp , a ) 

aouble  precision  rv  (3) 

double  precision  rvt  (6) 

double  precision  rsun  (3) 

double  precision  rnp  (3,3) 

double  precision  a (3) 


DESCRIPTION 

aero 

Executive  for  aeroaynamic  effects  on  m50  acceleration  and  body 
accel erat i on . 

rv  m50  position  of  vehicle  vector  (input) 

rvt  true  of  date  state  (input) 

rsun  m50  position  of  sun  vector  (input) 

rnp  m5C  to  true  of  date  matrix  (input) 

a m50  accel arax ion  (ouput) 


angu 1 ar 
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cbody . b( 3 ) 


NAME 

cbody 


SYNOPSIS 

subroutine  cbody  (mu,r,a) 
double  precision  mu 
double  precision  r (3) 
double  precision  a (3) 


DESCRIPTION 

cbody 

Computes  central  body  acceleration, 
mu  gravi tat ional  parameter  (input) 

r position  relative  to  central  body  (input) 

a accelaration  (output) 
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cdrag . b( 3 ) 


NAME 

cdrag 


SYNOPSIS 

subroutine  cdrag  ( w , ad , f ) 
double  precision  w (3) 
douol e prec i s i on  ad 
double  precision  f (3) 


DESCRIPTION 

cdrag 

Computes  constant  area  drag  force, 
w wind  in  body  coordinates  (input) 

ad  density  of  atmosphere  (input) 

f arag  force  (output) 


I 
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cy 1 dr . b( 3 ) 


NAME 

cy  1 dr 


SYNOPSIS 

subroutine  cyldr 
double  precision 
aouDte  precision 
double  precision 


( wb, rho, fb) 
ffc  (3) 
rho 

wb  ( 3 ) 


DESCRIPTION 
cy  1 dr 

compute  force  and  torque  due  to  aerodynarr; i c forces  on  a 
fb  drag  force  in  body  coordinates 

rho  atmospheric  density 

wo  wind  velocity  in  body  coordinates 


cy  1 i nder 
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NAME 

getm 


SYNOPSIS 

subroutine  getm  (t.m) 
double  precision  t 
double  precision  m 


DESCRIPTION 

getm 

Fetches  mass  from  mass  table, 
t time  mass  is  desired  (input) 

m vehicle  mass  (output) 
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NAME 

ha™  ORIGINAL  PAGE  IS 

OF  POOR  QUALITY 

SYNOPSIS 

subroutine  harm  (.  rg.gg) 
double  precision  rg  (3) 
double  precision  ga  (3) 


DESCRIPTION 

harm 

Computes  acceleration  due  to  harmonic  expansion  terms 
field  of  central  body. 

position  vector  of  reference  vehicles  icJ  earth- 
( i nput ) 

acceleration  in  earth-fixed  coordinates  (output) 


Maximum  8th  degree,  8th  order. 


99 

COMMENT S 


in  gravitational 
ixea  coordinates 
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sol  rad . b( 3 ) 


(Force) 


sol  rad . b( 3 ) 


NAME 

sol  rad 


SYNOPSIS 

subroutine  solrad  (rv,rs,acc) 
double  precision  rv  (3) 
double  precision  rs  (3) 
aoup'ie  precision  acc  (3) 


DESCRIPTION 
sol  rad 

Computes  a cce 1 era t i on  due  to  solar  rad i at i on  pressure, 
rv  m50  position  of  vehicle  (input) 

rs  m50  position  of  sun  (input) 

acc  accel eration  (output ) 
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svelbs . b( 3 ) 


( Force) 


svel bs . b( 3 ) 


NAME 

svel bs 


SYNOPSIS 


subroutine  svelbs  ( 
integer  v 

double  precision  t 
double  precision  m 
double  precision  as 


v , t , m , as ) 

(3,3) 

(3) 


DESCRIPTION 

svelbs 

Computes  bias  and  unbias  of  sensed  acceleration, 
v vehicle  id  (input) 

t desired  time  (input) 

m body  to  inertial  matrix  (input) 

as  sensed  acceleration  ( i nput/output ) 
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svftch . b( 3 ) 


( Force ) 


svf  tch . b ( 3 ) 


NAME 

svf tch 


SYNOPSIS 

subroutine  svftch  ( i v 1 oc , i nc , tc , tnew ) 

integer  ivloc 

integer  me 

double  precision  tc 

double  precision  tnew 


DESCRIPTION 

svftch 

Computes  sensed  acce 1 erat i on . 
ivloc  veh i cl e id  ( i nput ) . 

i nc  step  direction  (input), 

tc  cur rent  time  ( i nput ) . 

tnew  next  time  (output). 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


tbl ook . b(  3 ) 


( Force ) 


tbl ook . b( 3 ) 


NAME 

tbl ook 


SYNOPSIS 

subroutine  tblook  ( i mx , 1 tb , tb f t , i ) 
integer  imx 
integer  1 tb 

double  precis  ion  tb  (ltb.imx) 
double  precision  t 
integer  i 


DESCRIPTION 
tbl ook 

Finds  first  entry  in  a time  increasing  table  that  is  at  or  before  < 
time.  The  table  is  double  precison  with  the  first  slot  the  time, 
entries  are  after  the  time,  an  index  of  zero  is  returned. 


imx 


max  index  to  table  (input) 


1 tb  double  word  length  of  table  entry  (input) 

tb  table  (input) 


t desired  time  (input) 

i inaex  to  table  ( i nout/output ) 

COMMENTS 

The  index  must  be  initial ized  to  a value  less  tnan  or  equal  to  the 
index  value. 


g i ven 
If  al  1 


max i mum 
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vntf ch . b( 3 ) 


( Force ) 


vntf ch . b(  3 ) 


NAME 

vntf ch 


SYNOPSIS 

subroutine  vntfch  (v,tc,tnew) 
integer  v 

double  precision  tc 
double  precision  tnew 


DESCRIPTION 

vntfch 

Fetches  vent  force  of  each  vehicle, 
v veh i c 1 e id  ( i nput ) 

tc  current  time  ( i nput ) 

tnew  new  time  (input/output) 
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wndang . b( 3) 


( Force) 


wndang . b( 3 ) 


NAME 

wndang 

SYNOPSIS 

subroutine  wndang  ( w , ws , sb . cb , sa , ca ) 

double  precision  w (3) 

double  precision  ws 

double  precision  sb 

double  precision  cb 

double  precision  sa 

double  precision  ca 

DESCRIPTION 

wndang 

Computes  sines  and  cosines  of  sideslip  and  attack  angles. 

w wind  in  body  coord i nates ( i nput ) 

ws  wind  speed(output ) 

sb  sine  of  side  slip  angi e( output ) 

cb  cosine  of  side  slip  angl e ( output ) 

sa  sine  of  angle  attack ( output ) 

ca  cosine  o-  angle  attack i output ) 
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( Force ) 


zutek . b( 3 ) 


NAME 

zutek 


SYNOPSIS 

subroutine  zutek 
double  precision 
oouole  precision 
double  precision 


( wb , rho, f b ) 
wb  ( 3 ) 
me 

fb  (2) 


DESCRIPTION 

zutek 

Computes  aerodynamic  force  and  torque  using  zuteck  curve  fit. 
wb  wind  velocity  in  body  coordinates  (input) 

rho  atmospheric  density  (input) 

fb  drag  force  in  oody  coordinates  (output) 
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f i 1 e2 i o . c ( 3 ) 


(Gbf lie) 


f i 1 e2 i o . c( 3 ) 


NAME 

f i 1 e2 i o , get_next_f rame  - function  for  creating  bracket  times  from  second 
file. 


SYNOPSIS 


char  *f i 1 e2 io( i nf rame , f i 1 e_i nf o ) 
char  * inf rame; 
char  *file__info; 

double  *get_next_f rame( ) 


DESCRIPTION 
f i 1 e2 i o 

inframe  data  frame  of  previous! ly  read  gff 

fiie_infc  file  information  of  input  gff 

file2io  sends  the  data  frames  which  nave  times  bracketting  the  time  of  the 
input  frame  time  to  the  function  specified  in  the  input  file  structure. 
Note  it  no  bracket  interval  avail ab 1 e t hen  nulls  are  sent.  Warning:  Tne 

presence  of  static  variables  makes  this  function  an  unlikelv  candidate  for 
general  use  except  for  the  purpose  for  which  it  was  written.  This  purpose 
is  to  open  and  manipulate  one  file  per 'execution  in  responce  to  being 
invoked  by  fileio 

get_nexi_f rame 

get  the  next  frame  , check  first  for  end  of  file  , check  next  for  proper 
frame  id  , check  next  for  edit  status  if  necessary 
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f i leinf o_io. c( 3) 


( Gbf i le) 


fileinfo  i o . c ( 3 ) 


NAME 

fileinfo_ic  - a gbf  inout/output  routine  for  recursive  FILE_INFO  structures 
SYNOPSIS 


cnar  i 1 e i nf  o_i  o(  frame  , f i 1 e_  i nf  o » 

char  ^frame ; 
char  *fi1e  i nf o ; 


DESCRIPTION 
f i 1 e i nf  c_i  o 

f rame  current  frame  f rom  dr i ver  file 

file_info  FILE_INFO  structure  pointer  see  fileio.h 

This  routine  enables  the  programmer  to  utilize  the  fileio  process  to  obtain 
each  frame  from  some  input  file  and  perform  a multiple  set  of  functions 
each  of  which  result  in  a frame  output  tc  a specific  file.  The  output 
process  o*  fileio  is  not  invoked.  The  power  of  this  process  is  in  the 
recursive  data  structure  FILE_INF0  (see  fileio.h). 
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fileio.c(3) 


(Gbf i le) 


f i 1 eio . c( 3 ) 


NAME 

BaseTime,  fileio  - gff  file  input  and  output  routine 


SYNOPSIS 


CALTIME  BaseTime. 

i nt  f i 1 e i o( i n_f i 1 e , out_suf f i x , out_s i ze ) 
struct  FILE_INFO  *in_file; 
char  *out_suffix; 
i nt  out_size; 


DESCRIPTION 

fileio 

in_fiie  structure  defining  input  file 

out_suf f i x suffix  to  be  cateneated  to  input  file  name  for  new  file 

out_size  size  of  output  data  record: 

if  <0,  same  as  input; 
if  =0,  no  output  file; 
if  >0.  output  size. 

fileio  reaas  a gff  file  anc  creates  a new  gff  file  with 
that  is  a function  of  the  input  file  at  a subset  of  the 
points  on  the  incut  file. 


data 
t i me 
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(Gbf i le) 


gbHBuf Move . c( 3 ) 


NAME 

HStoHE , HBtoHS  - move  gbf  header  inf or  to  and  from  buffer 
5YN0P5IS 


void  HStoHB ( hdrbuf , gbf ) 
GBF I LE  *gbf ; 
char  *ndrbuf ; 

void  HBtoHS ( gof , hdrbuf ) 
GBFILEPTR  gbf; 
char  *hdrbuf ; 


DESCRIPTION 

HStoHB 

shifts  information  from  header  structure  to  buffer.  The  uodate  date  field 
is  set  to  the  current  date  in  both  structures. 

HBtoHS 

shifts  information  from  buffer  to  header  structure.  The  time  offset, 
record  size,  origin,  and  time  word  pointer  are  also  computed 
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gbf io. c(3 ) 


POOR 

(Gbf i le) 


gbf i o. c( 3 ) 


NAME 

gbf new , gbfwrt,  gbfopn,  gbfcls.  gbfdfc,  gbfops  - C interface  between 
FORTRAN  and  gbf lie  C routines 

SYNOPSIS 


vo i d gbf new ( file, f name , hdr i d , j codes , wrdf  rm , aate , dates .status ) 

i nt  *f i 1 e ; 

char  >^f name; 

char  *hdrid; 

char  *joodes; 

int  *wrdfrm; 

int  *date; 

double  *dates; 

int  ^status; 

void  gbf wrt ( f i 1 e , df rbuf , status ) 
int  *f i 1 e : 
double  *dfrbuf; 
int  ^status; 

void  gbf opn( f i 1 e , f name, status ) 
int  *f i 1 e ; 
char  *fr»ame; 
int  ^status; 

voic  gbf cl s l f i 1 e . status ) 
int  *f i 1 e ; 
int  ^status; 

vo i c gbf df c( f i i e . df rbuf .status  ! 
int  ’"file; 
double  *dfrbuf; 
int  ’•'status: 

void  gcf ops ( f name ) 
char  name; 


DESCRIPTION 
gbf new 
file 

f name 

hdr  i d 

j obdes 

wrdf rm 

date 

dates 

status 

genera  1 

gbfwrt 

general 


internal  id 
i nput  file  name 
input  header  id 
input,  header  Ascription 
number  of  bytes  per  frame 
calendar  base  date-  yr , mo, 
seconds  of  base  date 
status  flag 

new  gbf  create  function 

wr  i te 


day,  hr,  min 
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gfbf  i o . c ( 3 ) 


(Gbf i le) 


gbf io . c( 3 ) 


gbf opn 

genera  1 open 

gbf  c *t  s 

general  close 
gbf df c 

close  function  for  use  with  aownlist  processor  to  close  files  then  reopen 
and  display  header  and  return  begin/end  times 

gbf ops 

open  the  file  name  for  output  display  in  place  of  stderr  used  if  accessing 
the  f unct i on  gbf df c above 
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gbhead . c( 3 ) 


(Gbf i le) 


gbhead . c( 3 ) 


NAME 

F i 1 eBaseT i me , newGBF , gbtof f , gbwhead,  gbnhead  - gbf lie  structure  and 
header  operations 


SYNOPSIS 


CALTIME  F i 1 eBaseT i me ; 

GBF I LE  ~ newGBF ( name , s i ze , tbyte , tbase , story , format ) 
i nt  size, tbyte ; 

CALTIME  *tbase; 

char  *name , *s tory , *f ormat ; 

gbtof f (gbf ) 

GBF I L E *gbf ; 

gbwhead! gbf ) 

GBFILEPTR  gbf; 

gbrheadl gbf ) 

GBFILEPTR  gbf; 


DESCRIPTION 

newGBF 

forms  new  ods true tore  ana  sets  input  fields.  Returns  null  pointer  is  erro^ 
encounted 

gbtof f 

set  time  offset  for  gbf i 1 e If  reference  basetime  is  not  set,  it  is  set  tc 
file  oasetime  anc  the  time  offset  is  null 

gbwhead 

writes  header  information  stored  in  current  buffer  to  f iif  necorc 
abrhead 

reads  header  record 
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gb i o . c( 3 ) 


( Gbf i 1 e ) 


gb i o . c ( 3 ) 


NAME 

gbpcs , goread , gbwr i te , gbdread , gbawr i te  - i /o  of  gbf i 1 es 
SYNOPSIS 


gooosl.  gof . rec ) 

GBF I LE  *gbf  ; 
unsigned  rec; 

char  *gb»-ead(  gbf  ) 

GBF I LE~  *gbf ; 

i nt  gowr  i tel. gbf  , data  ) 

GBF I LE  *gbf ; 
char  *data; 

char  *godread ( gbf , rec ) 
GBFlLE~*gbf; 
unsigned  rec; 

int  gbdw^ i tel gbf . rec . data ) 
GBF I LE  *gbf; 
unsigned  rec: 
cha^  *aata; 


DESCRIPTION 

gbpos 

positions  file  pointer  to  desired  record  of  referenced  gbfile 
goread 

reads  current  record  of  referenced  gbfile  and  returns  pointer  to  data  in 
record.  Pointer-  should  be  recast  by  caller  to  desired  record  type.  Errors 
result  in  invalid  pointer  value  (0) 

gbwr i te 

writes  to  current  record  of  referenced  gbfile  returning  the  number  of  the 
bytes  written.  Note  that  the  file  is  posec  at  the  next  record . errors 
result  in  negative  return  values. 

gbdread 

reads  desired  record  of  referenced  gbfile  and  returns  pointer  to  data  in 
record.  pointer  should  be  recast  by  caller  to  desired  reocrd  type.  errors 
result  in  inval id  pointer  value  (0) 

gbdwr i te 

like  gbwrite  but  the  file  is  first  positioned  to  the  specified  record. 
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gbmake . c( 3 ) 


( Gbf i 1 e ) 


gbmake . c( 3 ) 


NAME 

makeGBF , makeGBData  - gbfile  structure  allocations 
SYNOPSIS 


GBFILE  ’“makeGBF  ( name  ) 
char  ’“name; 

char  *makeGBData( gbf ) 
GBFILE  *gbf ; 


DESCRIPTION 

makeGBF 

allocate  space  for  GBFILE  structure  and  set  specified  fields.  Errors 
result  in  null  pointer  being  returned.  Fields  are  not  set  if  pointers  are 
nul  1 

makeGBData 

al locate  space  for  GBFILE  data  buffer.  The  size  of  a record  is  also 
computed.  If  size  is  not  a multiple  of  sizeof(int).  the  fields  are  reset  so 
tr.at  '-size  = s i zeof  ( i nt  ) * i nt_rs  i ze  . Errors  result  in  null  pointer  being 
returnee . Fields  are  not  set  if  pointers  are  null 
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gbopen. c( 3) 


( Gbf i le) 


gbopen . c( 3 ) 


NAME 

abclose,  freeGBF,  gbfree,  gbopen,  gbnew  - open,  close  and  free  of  abfiles 


SYNOPSIS 


voic  abcl ose(gbf ) 

GBFILEPTR  gbf ; 

vo i a freeGBF ( gbf ) 

GBFILEPTR  gbf; 

void  gbfree(gbf) 

GBFILEPTR  gbf ; 

GBF I LE  *gbopen( name , mode ) 
char  *name; 
char  *moae ; 

GBF I lEdTR  gbnew ( name .size, tbyte. toase , story , format , mode ) 

char  *name; 

cnar  *mode; 

int  size; 

int  tbyte: 

char  *sto ry , ^format ; 

CAlTIME  * tbase ; 


DESCRIPTION 
abcl ose 

closes  file  and  updates  header  if  file  had  a write  key  set 
f reeGBF 

frees  all  space  allocated  to  gbf structure . WARNING  dire  things  may  napoen 
i * file  was  not  opened  with  gbopen  since  it  is  assumec  that  malloc  was  used 
tc-  allocate  space. 


gbf ree 

closes  file  and  frees  all  space  allocated  tc  it.  WARNING  dire 
happen  if  file  was  not  opened  with  gbopen  since  it  is  assumed 
was  used  to  allocate  space. 


things  may 
tnat  malloc 


gbopen 

name 


file  path  name 


opens  file  specified  by  name  with  designated  mode:  read  only  read/write, 

or  append.  File  nust  previously  exist  or  error  will  result,  returns 
pointer  to  file  structure  and  assigns  necessary  space  such  as  buffer  space 
and  space  for  the  file  packet.  Read/write  modes  are: 

r,R  =read  only  (default) 
b,B  =read  and  write 
a, A =append 

errors  return  invalid  pointer  value  (0)  and  are  as  follows:  bad  read/write 
mode,  unable  to  open  file,  unable  to  assign  enough  buffer  space. 

note  that  the  file  is  positioned  to  the  first  record  (record  0)  and  the 
input  buffer  contains  this  record.  NOTE  only  the  first  character  of  the 
mode  is  considered  and  the  default  is  read  only. 

NOTE:  mode  is  type  (char  *)  not  char,  a null  value  (0)  selects  the 

def aul t . 
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gbopen . c( 3 ) 


(Gbf i le) 


gbopen . c( 3 ) 


gbnew 

name  file  path  name 

size  record  size  in  bytes 

opens  file  specified  by  name  with  designated  mode:  read  only  read/write,  or 
append.  file  must  Dreviously  exist  or  error  will  result,  returns  pointer 
to  file  structure  and  assigns  necessary  space  such  as  buffer  space  and 
space  for  the  file  packet, 
reati./write  modes  are: 

b,B  =reao  and  write  (default) 

w,W  = write  only  (causes  error  with  gbclose) 

errors  return  invalid  pointer  value  (0)  and  are  as  follows:  bad  read/write 
mode,  unaole  to  open  file,  unable  to  assign  enough  buffer  space, 

note  that  the  file  is  positioned  to  the  first  record  (record  0)  and  the 
input  buffer  contains  this  record.  NOTE  only  the  first  character  of  the 
mode  is  considered  and  the  default  is  read/write. 

NOTE:  if  the  write  only  option  is  used,  header  records  are  not  correcly 
updated  on  closing  the  file.  Invoking  gbclose  or  abfree  to  close  to  will 
result  in  an  error. 
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( Gbf i le) 


gbprtd . c( 3 ) 


NAME 

gbf pheaa , f gbprt , abphead  - display  of  gbf i 1 e structures 


SYNOPSIS 


vcib  gbf phead ( f i 1 e , gof ) 
FILE  ’••file; 

GBF ILEPTR  gbf ; 

vo i d f gbprt ( file, gbf  ) 
GBF I LEPTR  gbf ; 

FILE  *f i 1 e ; 

void  gbphead(gbf) 

GBF I LEPTR  gbf; 


DESCRIPTION 
gbf phead 

displays  curreni  header  structure  to  specified  file 
f gbprt 

displays  current  header  structure  to  specified  file 
gbphead 

displays  neaoer  tc  standard  out 
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gbt i me . c( 3 ) 


(Gbf lie) 


gbt i me . c( 3 ) 


NAME 

gbt i me  - gb  time 


SYNOPSIS 


char  *gbt i me (gbf , t ime ) 
GBF I L E *gbf ; 
double  time; 


DESCRIPTION 
gbt ime 

positions  file  to  last  time  before  designated  time  and  return  pointer  to 
data  in  buffer.  If  time  before  start  of  file,  the  first  record  is  selected 
(record  number  0)  and  if  after  the  end  time  of  the  file,  the  last  record  is 
selected.  Errors  result  in  an  invalid  data  data  pointer'  (o).  The  output 
pointer  snould  be  recast  to  the  data  structure  type  by  the  celling 
function.  file  search  consists  of  binary  search  after  checking  that  the 
time  is  within  £ i 1 s bounds  ano  an  initial  estimate  of  the  desired  record 
record  is  obained  by  linear  interpolation 
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dctprt . b( 3 ) 


NAME 

dctprt 


SYNOPSIS 

subroutine  dctprt  (i op , frame , out ) 
i nteae^  i op  ( * ) 
integer  frame  (*) 
integer  out 


DESCRIPTION 

dctprt 

Prints  the  dictionary  from  a GFF  file, 
iop  i/o  packet  {input/output) 

frame  record  buffer  (input/output) 
out  print  file  unit  number  (output) 
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(Gff ) 


gf cl s . b( 3 ) 


NAME 

gf  cl  s 


SYNOPSIS 

subrout  i ne  gf  c 1 s (iop.  st  clout . f i 1 out , frame  , ciscrpt , prgver  , status  ) 

integer  iop  (*) 

integer  staout 

integer  filout 

integer  frame  (*) 

character  dscrpt 

character  prgver 

integer  status 


DESCRIPTION 
gf  cl  s 

C 1 oses  a GFF  file, 
iop  i/o  packet 

stdout  standard  output  unit  number 
filout  file  output  unit  number 
frame  frame  buffer 
dscrpt  update  Description 
prgver  program  name  and  version 
status  i/o  status 
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(Gff  ) 


gf d i ct . b( 3 ) 


NAME 

gf d i ct 


SYNOPSIS 

subroutine  gfdict  ( l op , frame , d i ct ) 
i nt eger  i op  ( * ) 
integer  frame  (*) 
character *20  diet  (*) 


DESCRIPTION 

gfdict 

Returns  tne  dictionary  from  the  GFF  file  in  a usable 

iop  i/o  packet 

frame  record  buffer  (input/output) 

diet  dictionary  (output) 


forrr,. 
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gf emsg. b( 3 ) 


NAME 

gf emsg 


SYNOPSIS 

subroutine  gfemsg  ( xx  , p , s t clout , f i 1 out ) 
integer  xx 
integer  p (*) 
integer  stdout 
i nteger  f i 1 out 


DESCRIPTION 
gf emsg 

Displays  error  messages  to  the  output  file, 
xx  error  type  (inpput) 

p i/'o  packet 

stdout  standard  output  unit  number 
filout  file  output  unit  number 
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(Gff  ) 


gf end . b( 3 ) 


NAME 

gf  end 


SYNOPSIS 

subroutine  gfend  ( i op . stdout , f i 1 out , f rame , status ) 

integer  iop  (*) 

integer  stdout 

i nteger  f i 1 out 

i nteger  f rame  ( * ) 

integer  status 


DESCRIPTION 

gfend 

Updates  the  file  header  and  append  the  *end  frame  to  the  GFF  file. 

iop  i/c  packet ( i nput/output ) 

staout  standard  out  unit  number! input) 

filoui  print  file  unit  number ( i nput ) 

frame  frame  buf f er ( i nput ) 

status  i/o  status ( output ) 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


gf f dsp . b( 3 ) 


(Gff ) 


gf f dsp . b( 3 ) 


NAME 

gff dsp 


SYNOPSIS 

subroutine  gffdsp  ( i op , out , frame . d i ct ) 

i nteger  lop  ( * ) 

integer  out 

integer  frame  (*) 

character  diet  (*) 


DESCRIPTION 

gffdsp 

Displays  file  information, 
iop  i/o  packet 

out  unit  number  of  the  output  file 

frame  record  buffer 

diet  dictionary 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


gf  new  . b(  3 ) 


(Gff ) 


gf new . b( 3 ) 


NAME 

gf  new 


SYNOPSIS 

subroutine  gfnew  ( i op , staout , f i 1 out , name , un i t , type , dscrpt , 

prgver  , f aste  , f sec  , pciate  , psec  , f rmsz  , frame  . spcbl  k. diet, status) 

i nteger  i op  ( * ) 

integer  staout 

i ntege^  f i 1 out 

character  name 

i nteger  uni t 

character  type 

character  dscrpt 

character  prgver 

integer  faate  (5) 

double  precision  fsec 

integer  pdate  (5) 

aoubl e prec l s i on  psec 

i nteger  f rmsz 

i nteger  f rame  ( f rmsz ) 

i ntege^  spcol k (11) 

character  diet  ( f rmsz ) 

integer  status 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


gf new . b( 3 ) 


(Gff ) 


gf new . b( 3 ) 


TRW  Houston  System  Services 


2 


(printed  12/18/86) 


gf open . b( 3 ) 


(Gff  ) 


gf open . b( 3 ) 


NAME 

gf open 


SYNOPSIS 

subrout i ne  gf open  ( i op , stdout . f i 1 out , name .unit, pdate , psec , rwf 1 g , 

f name . status ) 

integer  i op  (*) 

integer  stdout 

i nteger  f i 1 out 

character  name 

integer  unit 

i nteger  f rame  ( * ) 

integer  pdate  (5) 

double  precision  psec 

integer  rwflg 

integer  status 


DESCRIPTION 


gf open 
Opens  an 

i op 

stdout 
f i lout 
name 
uni  t 
f rame 
pdate 
psec 
rwf  i g 
status 


existing  GFF  file  and  set  up  tne  i/o  packet, 
i/o  packet 

stanaarc  output  unit  number 
o^int  file  unit  number 
name  of  G-c  file  tc  ooer. 

unit  number  on  wh i ch  to  open  the  GFF  file 
frame  buffer 

program  base  date  (ymdhm) 
program  base  aate  (.sec) 
read/write  flag 
i/o  status 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


gf read . b( 3 ) 


(Gff ) 


gf read. b( 3 ) 


NAME 

gf  read 


SYNOPSIS 

subroutine  gfread  ( i op , stdout . f 11  out , status , t i mtag , recnum j 

integer  i op  (*) 

integer  stdout 

i nteger  f i 1 out 

integer  status 

double  precision  timtag 

integer  recnum 


DESCRIPTION 
gf  read 

Converts  the  timetag  from  prgram  base  time  to  file  base  time  and 
the  record  number  of  the  frame. 

iop  io  packet 

stdout  standard  output  unit  number 
filout  print  file  unit  number 
status  output  status 
timtag  timetag 
recnum  current  record  number 


returns 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


gf rhdr . b( 3 ) 


(Gff  ) 


gf rhdr . b( 3 ) 


NAME 

gf rhdr 


SYNOPSIS 

subroutine  gfrhdr  ( hdr , i op , hdrsz , f rame ) 
integer  ndrsz 
integer  ndr  (ndrsz) 
i nteger  i op  ( * ) 
integer  frame  (*) 


DESCRIPTION 
gf rhdr 

Reads  the  header  from  the  GFF  file. 

hdrsz  number  of  words  in  the  header  (input) 

hdr  header  to  oe  written  to  the  GFF  file  (output) 

i op  l/o  packet 

frame  frame  buffer 
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1 


(printed  12/18/86) 


gf time.b(3) 


(Gff  ) 


gf time.b(3) 


NAME 

gf t ime 


SYNOPSIS 

subroutine  gftime  ( i op „ stdout , f i 1 out , t i me , i ndex , status  ) 

integer  iop  (*) 

integer  stdout 

integer  filout 

double  precision  time 

integer  index 

integer  status 


DESCRIPTION 

gftime 

Returns  the  index  of  the  first  record  whose  time  is  less  than  the  time 
specified.  If  the  time  specified  is  past  the  end  of  file,  then  the  index  of 
the  last  frame  is  returned.  If  the  time  specified  is  before  the  beginning 
of  the  file,  then  an  error  is  returned. 

iop  i/o  packet 

stdout  standard  output  unit  number 

filout  print  file  unit  numoer  (output) 

time  time  to  searcn  for  (input/output) 

index  inaex  the  the  record  reauested  (input/output) 

status  error  status  (output) 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


gf t ims . b( 3 ) 


(Gff  ) 


gf t i ms . b( 3 ) 


NAME 

gf t i ms 


SYNOPSIS 

subroutine  gftims  ( i op , stdout , f i 1 out , t i me i . 1 1 meo , i ndex . status  ) 

integer  iop  ( *■ ) 

i nteger  f i 1 out 

integer  staout 

double  precision  timei 

double  precision  t l meo 

integer  index 

integer  status 


DESCRIPTION 

gftims 

Returns  the  index  of  the  first  record  whose  time  is  less  than  the  time 
specified.  If  the  time  specified  is  past  the  end  of  file,  then  the  index  of 
the  last  frame  is  returned.  If  the  time  specified  is  before  the  beginning 
of  the  file,  then  an  error  is  returned . 

iop  i /o  packet 

filout  print  file  unit  number 

staout  standard  output  uni t numoef 

timei  program  time  tc  find  (input  ’* 

timeo  file  time  found  (output! 

index  inaex  the  the  record  requested  ( i nput /output  ) 
status  error  status  (output) 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


gf whdr . b( 3 ) 


(Gff  ) 


gf whdr . b( 3 ) 


NAME 

gf whdr 


SYNOPSIS 

subroutine  gfwhar  ( hdr , i op , hdr sz ) 
integer  hdrsz 
integer  hdr  (hdrsz) 
integer  i op  (*) 


DESCRIPTION 
gf whdr 

Writes  the  header  to  the  GFF  file, 
hdrsz  number  of  words  in  the  header  (input) 
hdr  header  to  be  written  tc  the  GFF  file 

iop  i/o  packet 


( output ) 
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1 


(printed  12/18/86) 


gf wr i t . b( 3 ) 


(Gff ) 


gf wr i t . b( 3 ) 


NAME 

gf wr i t 
SYNOPSIS 

subroutine  gfwrit  ( i op , stdout , f i i out , status , t i mtag t recnum ) 

integer  i op  (*) 

integer  staout 

i nteger  f i 1 out 

integer  status 

double  precision  timtag 

integer  recnum 


DESCRIPTION 

gfwrit 

Converts  the  timetag  from  prgram  base  time  to  file  base  time  and  returns 
the  record  number  of  the  frame. 

i op  i o packet 

staout  standard  output  unit  number 
filout  print  file  unit  number 
status  output  staius  (outouti 
timtag  timetag  ( i nput/ output  ) 
recnunr,  current  record  nurr.be-1  (output) 
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1 


(printed  12/18/86) 


hdrprt . b( 3 ) 


(Gff ) 


hdrprt . b(  3 ) 


NAME 

hdrprt 


SYNOPSIS 

subroutine  hdrprt  (i op, out) 
integer  i op  (*) 
integer  out 


DESCRIPTION 

hdrprt 

Prints  the  header  record  from  an  GFF 

iop  i/c  packet 

out  output  unit  number 


file. 
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1 


(printed  12/18/86) 


icshf t . b( 3 ) 


(Gf  f ) 


i cshf t . b( 3 ) 


NAME 

i cshf t 


SYNOPSIS 

subroutine  icshft  ( n , a . d ) 
integer  n 
integer  a (n) 
integer  d (n) 


DESCRIPTION 

icshft 

Moves  a word  from  location  to  another.  This  would  typically  be 
character  to  an  i nteger . 

n dimension  of  a and  e (input) 

a word  to  move  from  (input) 

d word  to  move  to  (output ) 


f rom  a 
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1 


(printed  12/18/86) 


iopprt . b( 3 ) 


(Gff  ) 


i opprt . b( 3 ) 


NAME 

i opprt 


SYNOPSIS 

subroutine  iopprt  (out, ip) 
integer  out 
integer  ip  (*) 


DESCRIPTION 
i opprt 

Prints  the  i/o  packet, 
out  output  unit  number 

ip  i/o  packet 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xatm . b( 3 ) 


( I nput ) 


i xatm . b( 3 ) 


NAME 

i xatm 
SYNOPSIS 

subroutine  ixatm 

DESCRIPTION 
i xatm 

I nput  of  common  bl ock  xxatm . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ixbias . b( 3 ) 


(Input) 


i xb i as . b( 3 ) 


NAME 

ixbias 


SYNOPSIS 

subroutine  ixbias 

DESCRIPTION 

ixbias 

Input  of  common  block  xxbias. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ixcon.b(3) 


( Input ) 


i xccn . b( 3 ) 


NAME 

i xcon 


SYNOPSIS 

subroutine  ixcon 

DESCRIPTION 
i xcon 

Input  of  common  bl ock  xxcon . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xdata . b( 3 ) 


( Input ) 


i xdata . b( 3 ) 


NAME 

i xdata 
SYNOPSIS 

subroutine  i xdata 

DESCRIPTION 
i xdata 

Input  of  common  block  xxdata. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xdprm . b( 3 ) 


( I nput ) 


i xdprm . b( 3 ) 


NAME 

i xdprm 
SYNOPSIS 

subrout  1 ne  i xdprm 

DESCRIPTION 
i xdprm 

Input  of  common  block  xxdprm. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ixerth.b(3) 


( I nput ) 


i xerth . b( 3 ) 


NAME 

i xerth 
SYNOPSIS 

subroutine  ixerth 

DESCRIPTION 
i xerth 

Input  of  common  block  xxerth. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ixf  i 1 e . b( 3 ) 


( Input ) 


ixf i 1 e . b( 3 ) 


NAME 

i xf  i 1 e 


SYNOPSIS 

subrout i ne  i xf i 1 e 

DESCRIPTION 
i xf  i 1 e 

Input  of  common  block  xxfile. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xgnr 1 . b( 3 ) 


( I nput ) 


i xgnr 1 . b( 3 ) 


NAME 

i xgnr 1 
SYNOPSIS 

subroutine  ixgnrl 

DESCRIPTION 
i xgnr 1 

Input  of  common  block  data. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ixgraf .b(3) 


( Input ) 


i xgraf . b( 3 ) 


NAME 

i xgraf 
SYNOPSIS 

subroutine  ixgraf 

DESCRIPTION 
i xgraf 

Input  of  common  block  xxgraf . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xgrav . b( 3 ) 


( Input ) 


i xgrav . b( 3 ) 


NAME 

i xgrav 


SYNOPSIS 

subroutine  i xgrav 

DESCRIPTION 
i xgrav 

Input  of  common  block  data. 


- 1 - 
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(printed  12/18/86) 


i x i n i t . b( 3 ) 


( Input ) 


i x i n i t . b(  3 ) 


NAME 

ixinit 

SYNOPSIS 

subroutine  ixinit 

DESCRIPTION 

ixinit 

Input  of  common  block  xxinit. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xkal . b( 3 ) 


( Input ) 


i xkal . b( 3 ) 


NAME 

i xka  1 


SYNOPSIS 

subroutine  ixkal 

DESCRIPTION 
i xka  1 

Input  of  common  block  xxkal . 


TRW  Houston  System  Services 


1 


(printed  12/18/66) 


i xmas . b(  3 ) 


( Input ) 


i xmas . b(  3 ) 


NAME 

i xmas 
SYNOPSIS 

subroutine  i xmas 

DESCRIPTION 
i xmas 

Input  of  common  bl ock  xxmas . 
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1 


(printed  12/18/86) 


i xmax . b( 3 ) 


( Input ) 


i xmax . b( 3 ) 


NAME 

i xmax 


SYNOPSIS 

suoroutine  ixmax 

DESCRIPTION 
i xmax 

Input  of  common  block  xxmax . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xmi sc . b( 3 ) 


( Input 


i xm i sc . b( 3 ) 


NAME 

i xmi sc 
SYNOPSIS 

subroutine  ixmisc 

DESCRIPTION 

ixmisc 

Input  of  common  block  xxmisc. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xmoon . b( 3 ) 


( I npu t ) 


i xmoon. b( 3 ) 


NAME 

i xmoon 
SYNOPSIS 

subroutine  i xmoon 

DESCRIPTION 
i xmoon 

Input  of  common  block  data. 
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1 


(printed  12/18/86) 


i xnf 1 z . b( 3 ) 


( I nput ) 


i xnf 1 z . D( 3 ) 


NAME 

i xnf 1 z 


SYNOPSIS 

subroutine  ixnflz 

DESCRIPTION 
i xnf I z 

I nput  of  common  bl ock  xxnf 1 z . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xprnt . b( 3 ) 


( Input ) 


i xprnt . b( 3 ) 


NAME 

i xprnt 


SYNOPSIS 

subroutine  ixprnt 

DESCRIPTION 
i xprnt 

Input  of  common  block  xxprnt . 


TRW  Houston  System'  Services 


1 


(printed  12/18/86) 


ixprop.b(3) 


( I nput ) 


i xprop . b( 3 ) 


NAME 

i xprop 


SYNOPSIS 

subroutine  i xprop 

DESCRIPTION 
i xprop 

Input  of  common  block  xxprop. 


TRW  Houston  System  Services 


1 


(pr i nted  12/18/86  ) 


i xqcrv . b( 3 ) 


( Input ) 


i xqcrv . b( 3 ) 


NAME 

i xacrv 
SYNOPSIS 

subroutine  i xqcrv 

DESCRIPTION 
i xqcrv 

Input  of  common  block  xxqcrv. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xqgen . b( 3 ) 


( Input ) 


i xqgen. b( 3 ) 


NAME 

i xqgen 


SYNOPSIS 

subroutine  i xqgen 

DESCRIPTION 
i xqgen 

I nput  of  common  bl ock  xxqgen . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xqprm . b(  3 ) 


( Input ) 


i xqprm . b(  3 ) 


NAME 

i xqprm 
SYNOPSIS 

subroutine  i xqprm 

DESCRIPTION 
i xqprm 

Inout  of  common  block  xxqprm. 
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(printed  12/ie/86) 


C'  <4 


ixrpst . b( 3) 


( Input ) 


i xrpst . b( 3 ) 


NAME 

i xrpst 


SYNOPSIS 

subrout i ne  i xrpst 

DESCRIPTION 

ixrpst 

Input  for  common  block  xxrpst . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xscov . b( 3 ) 


( I nput ) 


i xscov . b( 3 ) 


NAME 

i xscov 
SYNOPSIS 

subroutine  ixscov 

DESCRIPTION 
i xscov 

Input  of  common  block  xxscov. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xsen . b( 3 ) 


( I nput ) 


i xsen . b( 3 ) 


NAME 

i xsen 
SYNOPSIS 

subrout i ne  i xsen 

DESCRIPTION 
i xsen 

I nput  of  common  b 1 ock  data . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xsprm . b( 3 ) 


( I nput ) 


i xsprm.  b(  3 ) 


NAME 

i xsprm 
SYNOPSIS 

subroutine  i xsprm 

DESCRIPTION 
i xsprm 

Input  of  common  block  xxsprm. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xsptm . b ( 3 ) 


( Input ) 


i xsptm . b( 3 ) 


NAME 

i xsptm 


SYNOPSIS 

subroutine  i xsptm 

DESCRIPTION 
t xsptm 

I nput  of  common  block  xxsptm . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xsun . b( 3 ) 


( Input ) 


i xsun . b(  3 ) 


NAME 

i xsun 
SYNOPSIS 

subroutine  ixsun 

DESCRIPTION 
i xsun 

Input  of  common  block  xxsun. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xsvb  i . t>(  3 ) 


( Input ) 


i xsvbi . b( 3 ) 


NAME 

i xsvb i 


SYNOPSIS 

subroutine  ixsvbi 

DESCRIPTION 
i xsvb i 

Input  of  common  block  xxsvbi . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ixt ime. b(3 ) 


( Input ) 


i xt ime . b( 3 ) 


NAME 

i xt i me 


SYNOPSIS 

subroutine  ixt ime 

DESCRIPTION 
i xt i me 

Input  of  common  block  xxtime. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


ixtoff .b(3) 


( Input ) 


ixtoff . b ( 3 ) 


NAME 

ixtoff 


SYNOPSIS 

subroutine  ixtoff 

DESCRIPTION 
i xtof f 

Input  of  common  block  xxtof f . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xusys . b( 3 ) 


( Input ) 


i xusys . b( 3 ) 


NAME 

i xusys 
SYNOPSIS 

subrout i ne  i xusys 

DESCRIPTION 
i xusys 

Input  of  common  block  xxusys. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xvcx . b( 3 ) 


( Input ) 


i xvcx . b( 3 ) 


NAME 

1 xvcx 
SYNOPSIS 

subroutine  i xvcx 

DESCRIPTION 
i xvcx 

Input  of  common  block  xxvcx. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


i xvnt . b( 3 ) 


( I nput ) 


i xvnt . t>(  3 ) 


NAME 

i xvnt 
SYNOPSIS 

subroutine  ixvnt 

DESCRIPTION 
i xvnt 

Input  of  common  block  xxvnt . 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


1 int .b(3) 


( Interpol  ate ) 


1 i nt . b( 3 ) 


NAME 

1 int 


SYNOPSIS 

subroutine  lint  (n.x,w,fac.z) 
integer  n 

double  precision  x (1) 
double  prec  ision  w 
double  precision  fac  (1) 
double  precision  z 


DESCRIPTION 
1 i nt 

Lagrsnaian  interpolation. 

n order  of  the  i nterpo 1 at i on  to  be  used  ( i nput ) 

x the  tab! e of  known  arguments  ( i nput ) 

w the  argument  to  which  the  function  value  is  to  be  interpolated 

t i nput ) 

fac  table  of  laarangian  factors  (input) 

z the  interpolated  value  (output) 

COMMENTS 

The  taole  of  lagrangiar,  factors  must  have  oeen  initial  i zee  by  a call  tc  the 
subroutine  1 intin. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


1 i nt i n . b( 3 ) 


( Interpolate) 


1 i nt  i n . b(  3 ) 


NAME 

1 intin 


SYNOPSIS 

subroutine  lintin  (n,x,y,fac) 
integer  n 

douDle  precision  x (1) 
double  Precision  y (1) 
double  precision  fac  (1) 


DESCRIPTION 
1 i n t i n 

Initializes  lagrangian  factors  for  interpolation, 
n order  of  interpolation  to  be  used  (input) 

x table  of  known  arguments  of  the  function  correspondi ng  to  y (input) 

>'  table  of  known  values  of  the  function  correspondi  ng  to  x (input) 

fac  table  of  lagrangian  factors  (output) 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


1 rntrp.b(3) 


( Interpolate ) 


1 rntrp . b( 3 ) 


NAME 

1 rntrp 


SYNOPSIS 

subroutine  1 rntrp  ( t 1 , x 1 , t2 , x2 , t , x ) 

double  precision  t 1 

double  precision  xl  (6) 

double  precision  t2 

double  precision  x2  (6) 

double  precision  t 

double  precision  x (6) 


DESCRIPTION 
1 rnt rp 

LEAR  interpolation  method  for  position  and  velocity. 
1 1 first  known  time  ( i nput  ) . 

xl  known  state  at  time  tl  (input). 

t2  second  known  time  (.input). 

x2  known  state  at  time  t2  (input), 

t des i red  time  for  i nterpo 1 at i on  ( i nput ) . 

x interpolated  state  for  time  t (output). 
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1 


(printed  12/18/86) 


qintrp. b(3) 


( Interpolate) 


qi ntrp. b( 3) 


NAME 

qintrp 


SYNOPSIS 

subroutine  qintrp  ( t 1 , q 1 , t2 , q2 , t , q ) 

doub 1 e prec i s i on  t 1 

double  precision  qi  (4) 

double  precision  t2 

double  precision  q2  (4) 

double  precision  t 

double  precision  q (4) 


DESCRIPTION 

qintrp 

Interpolates  a quaternion  from  two  input  quaternions, 
tl  time  of  attitude  1 (input) 

qi  quaternion  fo^  interpolation  (input) 

t2  time  of  attitude  2 (input) 

q2  quaternion  for  interpolation  (input) 

t time  of  desireo  attituae  (input) 

q attituae  quaternion  (output) 
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1 


(printed  12/18/86) 


qwnt np . b( 3 ) 


( Interpolate) 


qwntrp . b( 3 ) 


NAME 

qwntrp 


SYNOPSIS 

subroutine  qwntrp  ( t , t 1 , q 1 , t2 , q2 , q , w ) 

double  precision  t 

double  precision  ti 

double  precision  qi  (4) 

double  precision  t2 

double  precision  a2  (4) 

double  precision  q (4) 

double  precision  w (3) 


DESCRIPTION 

qwntrp 

Interpolates  a quaternion  and  rate  from  two  input  quaternions. 

t time  of  desired  attitude  (input) 

ti  time  of  attitude  1 (input) 

ql  quaternion  for  interpolation  (input) 

t2  time  of  attitude  2 (input) 

q2  quaternion  for  interpolation  (input) 

Q attitude  Quaternion  (output) 

w average  angular  rate  (output) 
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pel ntrp . c( 3 ) 


( Interpol  ate ) 


relntrp.c(3) 


NAME 

rtntrp,  Irntrp  - interpolation  methods 


SYNOPSIS 


aouDle  *rtntrp( t . x , t 1 .xl , t2 , x2  ) 

doubl e t 1 ; 

double  *x  1 ; 

double  t2 ; 

double  * x2 ; 

double  t; 

double  *x; 

double  - 1 rntrp( t , x , 1 1 , xl , t2 , x2 ) 

doubl e tl; 

doubl e *xl ; 

double  t2 ; 

double  *x2 ; 

double  t; 

double  *x ; 


DESCRIPTION 
rtnt rp 

LEAR  i n ter  po  Vat  i or-  met  nod  for  relative  states 
1 rntrp 

Lagrangian  interpolation 
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r 1 ntrp . b( 3 ) 


( Interpolate ) 


r 1 ntrp . b(  3 ) 


NAME 

r 1 ntrp 


SYNOPSIS 

subroutine  rlntrp  ( i op , tm , n , rec ,t,f,e,z,stat) 

i nteger  i op  ( * ) 

double  precision  tm 

integer  n 

i nteger  rec  ( n ) 

douole  precision  t (n) 

double  precision  f (*) 

doubl e precision  e ( * ) 

aouble  precision  z (n) 

i nteger  stat 


DESCRIPTION 
r 1 ntrp 

Lagrangian  interpolation  of  RELBET  GFF  Centers  n pt  ephem  if 
however  center  routine  must  be  initialized.  This  may  be  done  on 
call  by  setting  the  last  time  in  the  array  is  less  than  the  1st 
oe  done  by  a call  to  rlmidl. 

i op  i/o  package  for  file  (input) 

tm  desired  time  (input) 

n number  of  entries  to  be  found  (input) 

rec  recorcs  cor respond i ng  to  entries  in  e (input/output) 

t array  of  time  tags  for  entries 

f interpolation  factors  (input/output) 

e array  buffe-'  for  entries  (input/output) 

z interpolated  value  (length  is  same  as  file  data  fr 

( output ) 

stat  status  flag:  >=0  is  good,  -1  is  eof . e is  error  (output) 


neccessary 
the  initial 
it  may  also 


ame  length 
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rtntrp. b( 3 ) 


( Interpolate) 


rtntrp . b( 3 ) 


NAME 

r tntrp 


SYNOPSIS 


subroutine  rtntrp 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 
double  precision 


( 1 1 , x 1 , t2 , x2 , t , x ) 
1 1 

x 1 (12) 

1 2 

x2  (12) 
t 

x (12) 


DESCRIPTION 
rtnt rp 

LEAR  interpolation  method  for  relative  states, 
tl  first  known  time  (input), 

xl  known  state  at  time  tl  (input). 

t2  second  known  time  (input). 

x2  known  state  at  time  t2  (input), 

t desired  time  for  interpolation  (input), 

x interpolated  state  for  time  t (output). 
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svntrp . b( 3 ) 


NAME 

svntrp 


SYNOPSIS 

subroutine  svntrp  ( 1 1 , v 1 , t2 , v2 , t , a ) 

double  precision  tl 

double  precision  vl  (3) 

douole  orecision  t2 

double  precision  v2  (3) 

double  precision  t 

double  precision  a (3) 


DESCRIPTION 

svntrp 

Interpolates  acceleration  from  two  sensed  velocities. 

tl  known  first  time  (input). 

v l known  first  velocity  ( i nput ) . 

t2  Known  second  time  ( i nput ) . 

v2  known  second  velocity  (input). 

t aes i rec  time  ^ i nout ) . 

a aesirec  acceleration  (output). 
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( L i nput ) 


i ni 1 1 i nput . c( 3 ) 


NAME 

initin.  setin,  getin  - initialize  the  structure  needed  by  the 
process 


SYNOPSIS 


void  i n 1 t i n ( ) 

void  set i n( 1 oc f name , di mtype ) 
char  * 1 oc ; 
char  *name; 
char  *dimtype; 

void  get i n(  ) 


DESCRIPTION 

initin 

initialize  maximum  memory  allocation  for  INPUT  structure  array 
set  i n 

set  the  values  for  the  current  INPUT  entry  and  increment  tc  next 
pos i t i on 

get  i n 

get  the  inputs  fron  tne  user's  standard  ir  file 


LINPUT 


entry 
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1 ex . c( 3 ) 


( L i nput ) 


1 ex . c( 3 ) 


NAME 

yyleng,  yymorfg.  yytchar,  yyin,  yyout , yyestate,  yylex,  yyvstop,  yycrank, 
yysvec,  yytop,  yybgin,  yymatch,  yyextra,  yylineno,  yytext,  yylstate,  yylsp, 
yyolsp,  yysbuf,  vysptr,  yyfnci,  yyprevious,  yylook,  yyback , yy  input, 

yyoutput , yyunput 


SYNOPSIS 

int  yvleng; 
ir.t  yymorfg; 
int  yytchar; 

FILE  *yy i n , *yyout ; 
struci  yysvt  ^yyestate; 
yy 1 ex( ) 

i nt  yyvstop [ ] ; 
struci  yywork  yycrank[]; 
struct  yysv*  yvsvec[]: 
struct  yywork  **yytoc; 
struct  yysvf  *yybgin; 
uchar  yymatch[ ] : 
uchar  yyextra [ ] ; 
i nt  yy  1 i neno ; 
ucnar  yvtext [ ] ; 

struct  yysvf  *yyl state []. **yvl sp . * *yvol sp ; 

uchar  yysbuf [ ] ; 

uchar  *yysptr; 

int  *yyfnd; 

int  yyprevious; 

yy 1 ook ( ) 

yyback ( p , m ) 
int  *p : 

yyinput( ) 

yyoutput ( c ) 
int  c; 

yyunout  ( c ) 
int  c; 


DESCRIPTION 
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( L i nput ) 


1 ex . c( 3) 


i nt 

end  of  yylex 
yv extra 

UNI  SRC_I D <&>(  £ ) 27 . 2 85/02/26 

yyol sp 

char  yysbuf [ YYLMAX ] : 

* cha^  *yysptr  = yysbuf; 

* nlsS  ***»-»' 

yy i nput 

the  following  are  only  used  in  the  lex  library 
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1 i nput . c(  3) 


( L i nput ) 


1 i nput . c( 3 ) 


NAME 


nl i st . v 1 i st , 1 i nput , 

mult,  d i v , pwr 


yyerror,  newcell,  setq,  pinop,  unop,  sum,  sub,  usub. 


SYNOPSIS 


P_CELL  nl  i st , vi i st ; 

1 i nput ( i nput ) 

INPUT  * i nput ; 

i nt  yyerror  ( s .) 
char  *s ; 


P_CELL  newcel 1 ( ) 


P CELL 

setq( n , v ) 

P_CE  LL 

n , v ; 

P_CELL 

binop(op.i 

P FUNCTION  op; 

P_CELL 

a , b ; 

P_CELL 

unop( op , a 

P FUNCTION  op; 

P_CE  LL 

a ; 

P CELL 

sum( a , b ) 

P_CELL 

a , b ; 

P CELL 

sub( a , b) 

P_CELL 

a , b ; 

P CELL 

usub( a ) 

P_CELL 

a : 

P CELL 

mu  1 1 ( a , b ) 

p_cell 

a . b ; 

P CELL 

d i v ( a , b ) 

P_CELL 

a , b; 

P CELL 

pwr (a , b ) 

P_CE  LL 

a , b ; 

DESCRIPTION 
1 i nput 

L-input  1 input  provides  for  L-input  for  other  programs . The  single  input 
is  an  array  of  type  INPUT.  INPUT  is  a structure  of  the  form 

{ char  *name:  char  *loc;  int  dim;  char  *type} 

name  is  the  name  as  it  should  appear  in  the  user's  input.  Toe  is  a pointer 

to  where  the  input  should  be  copied  at  the  end  of  the  input  phase,  aim  is 
the  number  of  items  to  be  stored,  and  type  is  the  type  of  the  data 
(currenty  "int”,  "double",  "float",  "char",  or  "string"  or  "string#"). 
Note  that  for  "string"  types,  dim  is  the  number  of  strings,  not  the  length 
of  the  string  however,  for  "string#"  types  the  # is  decoded  as  the  length 

of  the  string  and  a test  is  made  to  verify  that  the  input  string  is 

consitent  with  the  expected  length.  The  final  entry  in  the  input  array 
should  have  a (char  * )0  name. 


I 
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1 i nput . c( 3 ) 


newcel 1 

The  newcel 1 function  for  lists.  Currently  newcell  simply  calls  on  calloc 
when  needed,  and  makes  no  attempt  at  reclaiming  storage  no  longer  needed. 

setq 

assign  value  to  namelist 
bi  nop 

binary  operations 
unop 

unary  operations 

sum 

sum 

sub 

d i f f erence 

USUD 

unary  minus 
mul  t 

multiply 


d i v 

d i v i oe 

pwr 

power 


TRW  Houston  System  Services 


2 


(printed  12/18/86) 


newcel 1 . c(3)  (Linput)  newcel 1 .c(3) 

NAME 

newcel 1 
SYNOPSIS 

P_CELL  newcel 1 ( ) 


DESCRIPTION 
newcel 1 

a I 1 ocate  space 
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prt_i nput . c( 3 ) (Linput)  prt_i nput . c( 3 ) 


NAME 

prtin  - print  the  contents  of  the  input  blocks  one  variable  at  a time 
SYNOPSIS 


void  pr t i n( 1 oc , name , d i mtype ) 
char  *loc; 
char  *name; 
char  *dimtype; 


DESCRIPTION 

prtin 

print  the  contents  of  the  input  blocks  one  variable  at  a time 
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1 i sts . c( 3 ) 


NAME 

nil,  linit,  cons,  i number,  dnumber,  symbol,  isatom,  isinumber,  isdnumber, 
issymbol,  isfunction,  eq,  car,  cdr , ivalue,  dvaiue,  fvalue,  svalue,  append, 
member,  length,  locate 


SYNOPSIS 


P_CE  LL  ni 1 ; 

int  1 i n i t ( ce 1 1 _a 1 1 oc ) 
P_CEIL  (*cel l_al loc)( ) ; 

P_CELL  cons(a,b) 

P_CELL  a , to ; 

P_CELL  i number (n) 
int  n; 

P_CE  LL  anumber(d) 
double  d; 

P_CELL  symbol (s) 
char  *s : 

int  isatom(p) 

P_CELL  p; 

int  TSi number (p) 

P_CELi_  p; 

int  isdnumber(p) 

P_CELL  p; 

i nt  i ssymbol ( p ) 

P_CELL  p: 

int  i sfunct  t on(p ) 

P_CELL  p; 

int  eq( pi , p2 ) 

P_CE LL  pi tp2; 

P_CELL  car(p) 

P_CELL  p; 

P_CELL  cdr(p) 

P__CE  LL  p; 

int  ivalue(p) 

P_CELL  p; 

double  dvalue(p) 

P_CELL  p; 

P_FUNCT I ON  fvalue(p) 
P___C ELL  p; 

char  *svalue(p) 

P_CELL  p; 

P_CELL  append(x , y ) 
P_CELL  x.y; 

i nt  member ( x , 1 ) 
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1 i sts . c( 3 ) 


P__CE L L x,  1 ; 

int  1 ength( 1 ) 

P_CELL  1 ; 

P_CELL  1 ocate( x , 1 , m) 
P_CELL  x, 1 .m; 


DESCRIPTION 
1 i n i t 

initial i zat i on 
cons 

cons  cel  1 constructor 
i number 

integer  number  cell  constructor 
dnumber 

double  number  cell  constructor 
symbol 

symbol  cel  1 constructor 
i satom 

predicate:  is  cel:  atom? 

i s i numoer 

predicate:  is  cell  integer? 

i sdnumber 

predicate:  -:  = cell  double 

issymbol 

predicate,  is  cel 1 symbol? 
i sf unct i on 

predicate:  is  cell  function? 


predicate:  are  atoms  equal? 
car 

return  car  of  list 
cdr 

return  cdr  of  list 
i va 1 ue 

return  lvalue  of  cel  1 
dval ue 

return  dva 1 ue  of  cell 
f va 1 ue 

return  fvalue  of  cell 
sva 1 ue 

return  svalue  of  cell 
append 

append  list  to  list 
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putexp . c( 3 ) 


NAME 

putexp 


SYNOPSIS 


int  putexo(e) 
P_CELl  e; 


DESCRIPTION 

putexp 

output  expression  in  symbolic  form 
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strsave . c( 3 ) 


NAME 

strsave 

SYNOPSIS 


char  *s t rsave( s ) 
char  *s ; 


DESCRIPTION 

strsave 

save  string  s somewhere 
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( L i sts  ) 


st rstore . c( 3 ) 


NAME 

strstore 


SYNOPSIS 


cha^  *strstore(t) 
char  *t: 


DESCRIPTION 
st  rs tore 

store  string  uniquely  in  array 
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( Math ) 


acnvrt . b( 3 ) 


NAME 

acnvrt,  ai2rl,  ai2dbl,  ar!2i,  adbl2i 


SYNOPSIS 

subroutine  acnvrt  ( i , v , i v 1 , rv 1 ) 

integer  i 

i nteger  n-1  ( i ) 

real  rv 1 ( i ) 

double  precision  v (i) 

entry  ai2rl  (i,iv1,rv1) 

entry  ai2dbl  (itiv1,v) 

entry  ar!2i  (itrv1,iv1) 

entry  adb!2i  ( i ,v, ivl ) 

DESCRIPTION 

acnvrt 

Converts  vector  arrays  of  one  type  to  another  type, 
i dimension  indexes  (input) 

ivl  integer  vectors  (input/output) 

rvl  real  vector  ( i nput/outou t ) 

v double  precision  vectors  (output) 

a i 2r  1 

Shifts  integer  vector  to  real  vector, 
a i 2ao 1 

Shifts  integer  vector  to  double  precision  vector, 
ar  1 2 i 

Shifts  real  vector  to  integer  vector, 
adbl 2 i 

Shifts  double  precision  vector  to  integer  vector. 
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(Math) 


ang2 . b( 3 ) 


NAME 

ang2 


SYNOPSIS 

double  precision  function  ang2  (x) 
double  precision  x 


DESCRIPTION 

ang2 

Reduces  angles  outside  the  range  -pi  to  pi  into  that  range. 

x input  angle  in  radians  which  is  to  be  put  into  the  range  of  -pi  to 

p i . ( i nput ) 
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( Math ) 


arctan . b( 3 ) 


ORi  rr  u 

OF  POOR 


QUALITY 


NAME 

arctan 


SYNOPSIS 

double  precision  function  arctan  (a,b) 
double  precision  a 
double  precision  b 


DESCRIPTION 

arctan 

Returns  zero  if  Doth  arguments  are  zero  and  computes  datar.2  otnerwise 
a input  argument 

b input  argument 
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(Math) 


arshf t . b( 3 ) 


NAME 

arshft,  vzero,  rvzero,  ivzero,  vshift,  ivshft,  rvshft,  ibshft, 
i2char,  i2real,  i2dbl,  char2i,  rea!2i,  db!2i 


SYNOPSIS 

subroutine  arshft  ( i . v , v2 , v3 , i vl , i v2 , rv 1 , xv . rv2 ) 
integer  i 

aouble  precision  v (i) 
double  precision  v2  (i) 
double  precision  v3  (i) 
i nteger  i vl  ( i ) 
i nteger  i v2  ( i ) 
rea 1 rv 1 ( i ) 

characters  xv  ( i ) 
rea 1 rv2  ( i ) 

entry  vzero  ( i , v ) 

entry  rvzerc  (i,rv1) 

entry  ivzero  (i, ivl) 

entry  vshift  ( i , v , v2  ) 

entry  ivshft  (i,ivi.iv2) 

entry  rvshft  (i,rv*,rv2) 

entry  ibshft  (i,ivl,iv2) 

entry  dbshft  (i ,v2,v3) 

entry  i2char  ( i , ivl ,xv) 

entry  i2real  (i, ivl.rvl) 

entry  i2dcl  (i,ivi.v) 

entry  char2i  (i,xv,iv1) 

entry  real  2 i (i,rv1,iv1) 

entry  dbl 2 i ( i , v , i vl  ) 

DESCRIPTION 
arshf  t 

Moves  data  between  arrays  of  different  types  (no  conversion), 
i dimension  index  (input) 

v vectors  ( input/output) 

v2  double  precision  vectors  (input/output) 

v3  doubl e prec i s i on  vectors  ( output ) 

ivl  integer  vectors  ( i nput/output ) 

iv2  integer  vectors  ( i nput/output ) 

rvl  real  vector  (input/output) 

xv  character  array  (input/output) 


dbshft , 
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arshf  t . b( 3 ) 


(Math) 


arshf t . b(  3 ) 


rv2  real  vector  (input/output) 

vzero 

Zeros  the  vector. 


r vzero 

Zeros  the  real  vector, 
i vzero 

Zeros  the  integer  vector, 
vsh i ft 

Shifts  the  double  precision  vector  v into  v2 
i vshf t 

Shifts  the  integer  vector  ivl  to  iv2. 


rvshf t 

Shifts  the  real  vector  rvl  into  rv2. 
i fcshf  t 

Shifts  an  integer  array  siart i ng -at  Vast  element, 
dbshf t 

Shifts  an  double  array  starting  at  last  element. 
i2char 

Shifts  integer  vector  to  character. 
i2real 

Shifts  integer  vector  to  real  vector, 
i 2dbl 

Shifts  integer  vector  to  double  precision  vector. 
char2 i 

Shifts  integer  vector  to  character, 
rea 1 2 i 

Shifts  integer  vector  to  real  vector, 
db  1 2 i 

Shifts  integer  vector  to  double  precision  vector. 
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(Math) 


1 smi n . b( 3 ) 


NAME 

1 sm  i n 


SYNOPSIS 

subroutine  Ismin  ( n , a , w , i nvto 1 ) 
integer  n 

double  precision  a f*) 
double  precision  w ( » ) 
double  precision  invtol 


DESCRIPTION 

Ismin 

Inverts  positive  definite  symmetric  matrix  stored  as  lower  triangular 
vector . 

n d i mens  ion  of  matrix  ( i nput ) 

a pos itive  def i n i te  symetr ic  matrix  stored  as  1 ower  t r i angu 1 ar  ar r ay 

( i npu  t ) 

w inverse  of  a (output) 


invtcl  tolerance  for  singularity  (input) 
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m2qsub . b( 3 ) 


NAME 

m2qsub 


SYNOPSIS 

subroutine  m2qsub  ( m , q ) 
aouble  precision  m (3,3) 
double  precision  q (4) 


DESCRIPTION 

m2qsub 

Converts  a rotational  matrix  to  a auaternion. 
m rotational  matrix  (input) 

q quaternion  to  be  generated  (output) 
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ma  t r i x . c ( 3 ) 


( Math ) 


matri x . c( 3 ) 


NAME 

mxm , 


mxmc , mxv , mtxv , mt , 


mtxm,  mxmt 


Square  matrix  operations 


SYNOPSIS 


aouole  *mxm( a , b , c . ch m ) 
i nt  dim; 

double  *a . *b , *c ; 

double  *mxmc(a, b , c,dim) 
i nt  dim; 

double  *a , *o , *c ; 

double  *mxv ( y , a , x , di m ) 
i nt  dim; 

double  *y,*a,*x; 

double  *mtxv ( y , a , x , d i m ) 
i nt  dim; 

aouo 1 e *v,*a,*x; 

double  *mt(afb1dim) 
i nt  aim; 
douoie  *£.*b; 

aouble  *mtxrr.(  a , b , c . d i m ) 
i nt  dim: 

aouDl e *a . *b , *c : 

double  *mxmt (a ,b , c,di m) 
int  dim; 

douoie  *a , *b , *c ; 


DESCRIPTION 

mxm 

set  a = b c,  i.e.,  form  matrix  proouct  of  b and  c and  saves  in  a.  Matrices 
are  assumed  to  be  stored  by  ROWS  not  columns. 

mxmc 

form  matrix  product  of  b and  c and  saves  in  a.  Matrices  are  assumed  to  be 
stored  by  COLUMNS  not  rows 


mxv 

multiply  vector  x by  square  matrix  a and  store  at  y.  (y  = a x).  Matrices 
is  assumed  to  be  stored  by  ROWS  not  columns. 

mtxv 

multiply  vector  x by  transpose  of  square  matrix  a and  store  at  y.  (y  = a x 
).  Matrix  is  assumed  to  be  stored  by  ROWS  not  columns. 

mt 

gets  the  transpose  of  matrix  b and  stores  in  matrix  a;  i.e  a = bT 


set  a = bT  c,i.e.,  form  matrix  product  of  b transpose  and  c and  save  in  a. 
Matrices  are  assumed  to  be  stored  by  ROWS  not  columns. 


mxmt 

set  a = b cT,  i.e.,  form  matrix  product  of  b and  c transpose  and  saves  in 
a.  Matrices  are  assumed  to  be  stored  by  ROWS  not  columns. 
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^;vcc  lS 

QUftllJ-y 

mx3ops . b( 3 ) 


NAME 

mx3ops , mvmu 1 3 . mtxv3,  mshft3,  mzeroS , ident3,  smmul3,  mxmu!3,  mtxm3 , 
mxmtS,  mt ran3 , vaddS,  svmul3,  vsub3 , cros.  vnorm3 , vunit3,  vzero3,  vdot3’ 
vshf  t3 


SYNOPSIS 

subroutine  mx3ops 
double  precision  ml  (2.3) 
double  precision  m2  (3,3) 
double  precision  m3  (3,3) 
double  precision  vl  (3) 
double  precision  v2  (3) 
double  precision  v3  (3) 
double  precision  x 

entry  mvmu!3  (m1,v1,v2) 

entry  mtxv3  (m1,v1,v2) 

entry  mshft3  (ml, m2) 

entry  mzeroS  (ml) 

entry  identS  (ml) 

entry  smmul3  (x,m1,m2) 

entry  mxmu!3  (ml, m2. m3; 

entry  mtxm3  (ml, m2, m3) 

entry  mxmt2  (ml, m2, m3) 

entry  mtran3  (ml, m2) 

entry  vaad3  (v1,v2,v3) 

entry  svmulS  (x,v1,v2) 

entry  vsub3  (v1,v2,v3) 

entry  cros  (v1,v2,v3) 

entry  vnorm3  (v1,x) 

entry  vumt3  (v1,v2) 

entry  vzero3  (vl) 

entry  vdot3  ( v1,v2,x) 

entry  vshft3  (v1,v2) 

DESCRIPTION 

mx3ops 

Various  3 dimensional  matrix  and  vector  operations. 


m 1 

double 

prec i s i on 

matr i ces 

( i/o) 

m2 

double 

preci sion 

matr 1 ces 

( i/o) 

m3 

double 

precis i on 

matr i ces 

(i/o) 
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(Math) 


mx3ops.b(3) 


v 1 

doubl  e 

prec i s i on 

vectors 

( i /o) 

v2 

doubl e 

prec i s i on 

vectors 

(I/O) 

v3 

doubl  e 

prec i s i on 

vectors 

(l/o) 

X 

sea  1 ar 

( i nput ) 

mvmu  1 3 

Does  vector  and  matrix  multiplication.  (V2=M1*V1) 


mtxv3 

Multiplies  vector  by  transpose  of  matrix.  ( V2  = transpose! M 1 ) *V 
mshf  t3 

5ets  one  3x3  matrix  equal  to  another.  (M2=M1) 


mzero3 

Zeroes  out  a 3x3  matrix.  (M1=0) 
i dent3 

Chanoes  a square  matrix  to  a identity.  (Mi-I) 


smmul  3 

Multiplies  a scalar  by  a 3x3  matrix.  (M2=x*M1) 


mxmu  1 3 

Does  matrix  multiplication.  (M3*M1*M2) 
mtxm3 

Does  matrix  mu  1 1 i pi i cat i on . first  matrix  is 

(M3= transpose! Ml }*M2 ) 

mxmt  3 

Does  matrix  multiplication,  second  matrix  is 
(M3  = M1  *- transpose  (M2  ) ) 

mt ran3 

Does  matrix  transpose.  ( M2= transpose! M 1 ) ) 


vadd3 

Does  3-vector  addition.  (V3=V1+V2) 
svmu  1 3 

Does  scalar  and  vector  multiplication.  (V2=x*V1) 
vsub3 

Does  vector  subtraction.  (V3=V1-V2) 


cros 

Computes  cross  product.  (V3=V1xV2) 


transposed . 


transposed . 
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mx3ops.b(3) 


vnorm3 

Computes  vector  magnitude.  (x=nor(V1)) 
vun i t 3 

Mormilizes  the  vector.  ( V2=un i t ( V 1 ) ) 
vzero3 

Zeroes  out  each  component  of  a vector.  (VI =0) 
vdotS 

Computes  the  dot  product  of  a vector.  (c=V1*V2) 
vshf  1 3 

Sets  one  3-vector  equal  to  another.  (V2-V1 ) 
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NAME 

mxops,  mxmul , mvmul . mtxv,  mxadb,  mshift,  mxran,  mzero.  imzero , rmzero, 
ident,  vadd.  vsub,  vdot , vnonm,  vunit,  svrnui 


SYNOPSIS 

suDrout i ne  mxops  ( i , j .D.rml, i m 1 , m 1 , m2 , m3 , m , mt . v 1 , v2 . v3 . x . v , mm ) 

integer  i 

integer  j 

integer  p 

rea 1 rm 1 ( i , j ) 

i nteaer  i m 1 ( i , j ) 

double  precision  mi  (i,j) 

double  precision  m2  (j,p) 

double  precision  m2  (i,p) 

double  precision  m (i.j) 

double  precision  mt  (j,i) 

double  precision  vl  (j) 

double  precision  v2  (i) 

douole  precision  v2  ( i ) 

double  precision  x 

double  precision  v (i) 

double  precision  mm  (itj) 

entry  mxmul  ( i , j , p , m 1 , m2 , m3 ) 

entry  mvmul  ( i , i , ml , v 1 , v2 ) 

entry  mtxv  ( i , j , m , v2 , v i ) 

entry  mxaad  ( l , j , m 1 , m , mm ) 

entry  mshift  (i.j.ml.m) 

entry  mtran  (i.j.ml.mt) 

entry  mzerc  (i,j,mi) 

entry  imzero  (i,j*im1) 

entry  rmzero  (i.j.rml) 

entry  i dent  ( i , j , ml  ') 

entry  vadd  (i,v,v2,v3) 

entry  vsub  (i,v,v2,v3) 

entry  vdot  (i,v,v2,x) 

entry  vnorm  (i,v,x) 

entry  vunit  (i,v,v2) 

entry  svmul  ( i ,x,vfv2) 


DESCRIPTION 

mxops 

Performs  various  matrix  and  vector  operations, 
i dimension  index  (input) 

j dimension  index  (input) 
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p 

dimension  index  i 

f i nput ) 

rml 

real  matrix  (output) 

i m 1 

integer  matrix  (output) 

ml 

double 

prec i s ion 

mat r i ces 

( i npu  t ) 

m2 

doub 1 e 

preci s i on 

matr i ces 

( i nput ) 

m3 

m3  double  precision  matrices  (output) 

m 

doubl e 

preci s ion 

matrices 

( i nput/output 

mt 

doubl e 

prec i s i on 

mat r i ces 

( output ) 

v 1 

double 

preci s ion 

vectors 

( i nput/output ) 

v2 

doubl e 

prec i s i on 

vectors 

( input/output ) 

v3 

doubl e 

preci s i on 

vectors 

( output ) 

X 

sea  1 ar 

( output ) 

V 

doubl e 

prec i s ion 

vectors 

( i nput  ) 

mm 

double 

pr-eci  s ion 

mat r i ces 

( output ) 

mxmul 

Performs  matrix  multiplication, 
mvmu  1 

Performs  vector,  matrix  multiplication, 
mtxv 

Performs  matrix  calculation, 
mxadci 

Performs  matrix  addition. 


msh i f t 

Shifts  a matrix. 


mt  ran 

Transposes  a matrix. 


mzero 

Zeroes  a double  precision  matrix, 
i mzero 

Zeroes  an  integer  matrix. 


rmzero 

Zeroes  a real  matrix. 


i dent 

Performs  matrix  identity  ooeration. 
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vadd 

Performs  vector  addition. 


vsub 

Performs  vector  subtraction. 


voot 

Performs  dot  product. 


vnorm 

Performs  vector  normalization. 


vun  1 1 

Perf or ms  vector  unitization. 


svmu  1 

Performs  vector  multiplication  by  scaler. 
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NAME 

nrml zq 


SYNOPSIS 

subroutine  nrmlzq  (q) 
double  precision  q (4) 


DESCRIPTION 
nrml zq 

Normalizes  i/o  quaternion  q for  rot  and  mat  entry 
q quaternion  to  be  normalized  (input/output) 


po i nts . 
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pr tarray . c ( 3 ) 


NAME 

prt3mat.  prt3vec,  prt3tmat,  fprtarray,  prtarray 


SYNOPSIS 


int  prt 3mat ( m , dscp ) 
double  *m; 
char  *dscp; 

i nt  prt3vec ( v , dscp ) 
double  * v ; 
char  *dscp ; 

int  prt 3 tmat ( m , dscp ) 
double  *m; 
char  *dscp; 

int  fprtarray(f 1 , d i m , row_l ength , f mt , a ) 
FILE  *f  1 : 

int  dim , row_J  ength ; 
char  *fmt; 
double  * a ; 

int  prtarray (dim, row_l ength , f mt . a ) 
int  dim. row_l ength; 
char  *fm*c: 
double  *a: 


DESCRIPTION 

The  descripiion  field  dscp  is  printed  as  a string  followed  by  1 newline, 
prt 3mat 

display  3 by  3 matrix  nr.  to  stdout  in  2i.14e  format 


pr t 3vec 

display  3 vector  v to  stdout  in  21.14e  format 
pr t 3tmat 

display  3 by  3 transformation  matrix  m to  stdout.  A fixea  point  format  is 
used  with  the  assumption  that  the  matrix  is  normalized. 

f prtarray 

print  double  precision  array  of  dimension  dim  to  specified  file. 
row_length  specifies  the  number  of  elements  per  line  that  are  to  be 
printed.  If  row_length  is  negative,  each  row  is  preceed  by  a count  of  the 
number  of  elements  that  have  been  thus  far  printed.  A null  value  of 
row_length  results  in  5 elements  per  row  being  printed.  fmt  specifies  a 
format  with  which  to  print  a single  element.  If  fmt  is  null,  then  the  %15g 
format  is  used.  Note  that  format  should  have  a leading  tab  or  space 
separator  . 


prtarray 

as  fprtarray  except  to  standard  out  <stdout> 
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NAME 

q2msub 


SYNOPSIS 

subroutine  q2msub  (q,qO,m) 
double  precision  q (4) 
double  orecision  qO 
double  precision  m (3,3) 


DESCRIPTION 

q2msub 

Converts  a quaternion  into  a rotational  matrix, 
q quaternion  to  be  converted  (input) 

qO  positive  part  of  q( 1 ) (input) 

m rotational  matrix  to  be  made  (output) 
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NAME 

qxq,  acxq , qxqc,  qintp,  qvrot,  qvirot.  qdot , imatq,  matq,  normq 
quaternion  operations 


SYNOPSIS 


oouble  *qxq( q3 , ql , q2 ) 

QUATERNION  q3,qi , q2 ; 

double  *qcxq( q3 , ql , q2 ) 

QUATERNION  q3,q1 ,q2; 

double  *qxqc ( q3 , q 1 , q2 ) 

QUATERNION  q3,q1 , q2 ; 

double  *qintp(q3,t3,q1 , t 1 , q2 , t2 ) 
QUATERNION  qS.ql ,q2; 
doubl e t 3 , t 1 , t2 : 

double  ~qvrot ( vout , q , v ) 
double  vout [ ] , v [ ] ; 

QUATERNION  q; 

double  * qv i rot ( vout , q . v ) 
double  vout [ j . v[ ] : 

QUATERNION  O; 

double  vqdot ( oodt , q , w ) 
oouble  oqdt [ ] ; 

QUATERNION  q; 
double  w[  3 ; 

double  *imatq(q,t) 

QUATERNION  q: 
oouble  t [ ) [ j : 

double  *matq( q, t ) 

QUATERNION  q; 
oouble  t [ ] [ ] ; 

double  ^normq(q) 

QUATERNION  q; 


DESCRIPTION 

qxq 

forms  quaternion  product,  Sets  q3  equal  to  ql  times  q2 . 
qcxq 

Sets  q3  to  ql  conjugate  times  q2 . 
qxqc 

Sets  q3  equa 1 to  ql  times  q2  con j uga te . 
qi  ntp 

performs  a linear  interpolation  between  ql  and  q2  defined  at 
times  tl  and  t2  respectively  to  get  the  quaternion  q3  defined  at  t3. 

qvrot 

Sets  vout  = qc  x v x q;  rotates  the  input  vector  to  the  system  defined  by 
the  quaternion  q. 
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qvi rot 

Sets  vout  = q x v x qc;  rotates  the  input  vector  to  the  svstem  defined  by 
the  quaternion  q. 

qdot 

w angular  velocity  in  body  coordinates 

compute  time  derivative  of  quaternion 
i ma tq 

Given  the  inverse  of  the  matrix  transf ormat ion  from  F to  G,  compute  the 
quaterion  of  the  transformation  from  F to  G.  Code  converted  directly  from 
the  Pascal  of  the  Orbital  Flight  Simulation  Utility  Software  Unit 
Specifications  (S.  w.  Wilson). 

matq 

call  imatq  and  conjugate  the  quaternion 
normq 

call  imatq  and  conjugate  the  quaternion 
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NAME 

qrot 

SYNOPSIS 


subroutine  qrot  ( 

q, 

qO , v , x ) 

double 

p^ec i s i on 

a 

(4) 

doubl e 

prec i s i on 

qC 

double 

precis i on 

V 

(3) 

doubl e 

prec i s i on 

X 

(3) 

DESCRIPTION 

qrot 

Perf orms 

; rotat i ons  of  qua tern i ons 

q 

qua ter n i on  ( i nput ) 

qO 

quaternionn  ( input) 

V 

vector  ( i nput ) 

X 

vector  ( output ) 
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NAME 

qtnops,  qxq,  qcxq,  qxac,  qtom,  qtoim,  rot,  irot,  imatq,  matq 
SYNOPSIS 

suoroutine  qtnops 
douole  precision  m (3.3) 
double  precision  q (4) 
double  precision  qO 
double  precision  ql  (4) 
double  precision  q2  (4) 
double  precision  q3  (4) 
double  precision  v (3) 
double  precision  x (3) 

entry  qxq  (q1,q2,q3) 

entry  qcxq  (q1,q2,q3) 

entry  axqc  (q1,q2.q3) 

entry  qtom  (q,m) 

entry  qtoim  (q,m) 

entry  rot  (q.vtx) 

entry  irot  (q,v. xj 

entry  imatq  (m,q) 

entry  matq  (m,q) 


DESCRIPTION 

qtnoos 

Performs  various  quaternion  ocera t i,cns . 'Determines  an  orthogonal  matrix 
representeo  by  a quaternion.  Transforms  tne  components  o-  a vector  in  one 
coordinate  system  to  those  in  another  coordinate  system,  rotated  with 
respect  to  the  first  in  a way  defined  by  the  versor  q. 


m 

orthogonal 

matrix  (output) 

q 

quatern i on 

( i nput ) 

qO 

local  variable 

ql 

quaterni on 

( i nput ) 

q2 

quaternion 

( i nput ) 

q3 

quaterni on 

(output ) 

V 

input  vector  (input) 

X 

output  vector  ( output ) 

qxq 

Sets  q3  equal  to  ql  time  q2 . 


qcxq 

Sets  q3  to  ql  conjugate  times  q2 . 


qxqc 
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Sets  q3  equal  to  qi  times  q2  conjugate. 


atom 

Converts  q to  matrix  m. 


qto  i rr. 

Computes  matrix  of  inverse  rctation  represented  by  a. 


rot 

Uses  q to  transform  v to  x. 


i rot 

Uses  conjugate  of  q to  transform  v to  x. 


i mat  a 

Converts  matrix  m to  inverse  quaternion  q. 


matq 

Converts  matrix  m to  quaternior,  q. 


COMMENTS 

1)  The  input  quaternion  must  oe  normal i zee.  2)  Input  matrix  must  be 
orihonorma 1 . 
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NAME 

rmxm,  rmxmc,  rmxv  - double  array  operations 


SYNOPSIS 


double  * rmxm (a , b , c , rowb , co 1 b , col c) 
int  rowb , co 1 b , col c ; 
doubi e *a, *b, *c ; 

doub 1 e * rmxmc ( a , b , c , rowb , co 1 b , col c ) 
int  rowb , col b , col c ; 
doubi e *a , *b , *c ; 

double  *rmxv( y , a , x , di m ) 
int  dim; 

double  ~y . *a , *x ; 


DESCRIPTION 

rmxm 

set  a » b c,  i . e . , form  matrix  product  of  b and  c and  saves  in  a. 
are  assumed  to  be  stored  by  ROWS  not  columns. 

rmxmc 

form  matrix  product  cf  b and  c and . saves  in  a.  Matrices  are  assumed 
stored  by  COLUMNS  not  rows 

rmxv 

set  y = a y,  i.e.,  form  product  of  matrix  a and  vector  fc  and  save 
Matrix  is 

assumed  tc  be  stored  bv  ROWS  not  columns. 


Matr i ces 


tc  oe 


in  y . 
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NAME 

sign  - sign  ODeration 


SYNOPSIS 


double  sign(a,b) 
double  a,b; 


DESCRIPTION 
s i gn 

perform  sign  change  operation 
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NAME 

symxv 


SYNOPSIS 

suoroutine  symxv 
integer  ds 
integer  dx 
double  precision 
double  precision 
double  precision 


( ds , dx , s , x , y ) 


s ( ds ) 
x ( dx  ) 
y (dx) 


DESCRIPTION 

symxv 

Multiplies  a symmetric  matrix  stored  lower  triangularly  by  rows 
vector. 

dimension  of  array  containing  symmetric  matrix  (input) 
dx  dimension  of  vector  (input) 

s array  containing  symmetric  matrix:  lower  triangular  portion 

by  rows  (input) 

x vector  tc  be  multiplied  (inpui) 

y Droauct  vector  (output) 


imes  a 


stored 
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NAME 

tenrnd 


SYNOPSIS 

subroutine  tenrnd  (place, x) 
integer  place 
real  x 


DESCRIPTION 

tenrnd 

Rounds  off  values. 

place  decimal  place  in  which  to  round,  i rounds  to  second  digit,  etc 
( i npu t ) 

x value  to  round  (input/output) 

COMMENTS 

Rounds  small  values  to  zero. 
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NAME 

vadd,  vaddto,  vdist,  vdot,  vfadd,  vfaddto.  vsub , vfmul,  vrss , vset, 
vrunit  - double  array  operations 


SYNOPSIS 


double  *vadd( a , b , c , di m) 
int  dim; 

doubi e *a , *b , *c; 

double  *vaddto(a Tb , dim ) 
int  dim; 
double  *a,*b; 

double  vdist(a.b,dim) 
int  dim: 
doubi e *a . *b ; 

double  vdot ( a , b , dim) 
int  dim; 
double  *a,*b; 

double  *vfadd( a . b , factor , c , di m) 
int  dim; 

double  *a , *b , *c * factor ; 

double  *vf adatof a , factor . b .dim  1 
int  dim; 

double  *a , *b , factor ; 

double  «vsub( a . b , c , di m ) 
int  dim; 

double  *a,*b,*c; 

doubi e *vf  mu  1 ( a , factor ; b . dim ) 

int  dim; 

double  *£, * b , factor; 

double  vrss(a,dim) 
int  dim; 
double  *a; 

double  *vset (a , b , dim ) 
int  dim; 
double  *a,*b; 

double  *vzero(a , dim) 
int  dim; 
double  *a; 

double  vruni t ( un i t , a , b , d i m) 
int  dim; 

double  *unit,*a,*b: 


DESCRIPTION 

vadd 

array  addition;  set  a = b + c 
vaddto 

add  array  to  array  b,  i.e.  a - a+b. 


vzero , 
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vd i st 

returns  the  root  sum  square  cr  Euclidean  distance  between  tne  double  arrays 

a and  b 

vaot 

returns  dot  product  of  a and  b 
vf  add 

set  a = b + factor*c 
vf addto 

multiply  array  b by  factor  and  add  result  to  array  a.  i.e.,  a - a + f*b. 
vsub 

set  a = b - c 
vf  mu  1 

set  a * factor*b 
vrss 

returns  root  sum  square  norm  of  a 
vset 

set  array  a equal  to  b 
vzerc 

set  array  a equal  to  0 
vrun  i t 

returns  the  root  suit,  square  or  Euclidean  aistance  between  tne  double  arrays 

a and  b and  stores  unit  vector  from  a to  b in  unit. 
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(Message) 


anl i sts . c( 3 ) 


NAME 

addANL i tem . pntANLitem,  prtANList  - Adress  and  Name  lists 
SYNOPSIS 


int  addANL i tem( adress , name ) 
char  ^adress , *name ; 

int  prt ANL i tem( adress , str i ng ) 
char  *adress , *str i ng; 

void  pr t ANL i st ( ) 


DESCRIPTION 
addANL i tern 

Add  entry  to  adress/name  list.  Returns  item  number  (starting  at  1)  if 
okay.  Returns  0 if  list  is  full 

prt ANL i tem 

searches  adress/name  lists  and  displays  name  and  adress  to  stdout.  Returns 
item  number  (starting  at  1)  if  item  found,  C if  not.  If  string  is  not 
null,  then  the  string  is  printed  in  front  of  the  name  followed  by  a colon 
and  a space. 

prt ANL i st 

display  adress/name  list  to  stdout 
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datime.b(3) 


( Message ) 


dat i me . b( 3 ) 


NAME 

dat i me 


SYNOPSIS 

subroutine  datime  (unit) 
integer  unit 


DESCRIPTION! 
dat ime 

Displays  processor  name,  version,  date  and  time, 
unit  output  unit  (input) 

COMMENTS 

Input  processor  name  must  be  less  than  57  characters. 
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gnaml i st . c( 3 ) 


( Message ) 


gnaml i st . c( 3 ) 


NAME 

GNLgetName,  fprtgnlist,  Make__GNLI ST , Add_GNList  - manipulation  of  namelist 
structures 


SYNOPSIS 


char  *GNLgetName ( aoress , nl i st ) 

GNL^ITEM  *nlist; 
char  *adress; 

void  f prtgnl i s t ( f i 1 e . nl i st . dscp ) 

FILE  *f i 1 e ; 

GNL_ITEM  *nl i st ; 
char  *dscp; 

GNLIST  *Make_GNLI ST (list, name , maxi enath , i terns ) 
GNLIST  *1 ist ; 
char  *name , * i terns ; 
int  maxlength; 

i nt  Add_GNL i s t ( adr ess , dscp , 1 ist) 
char  *adress , *tiscp : 

GNLIST  * 1 ist; 


DESCRIPTION 

GNLgetName 

find  entry  in  namelist  with  given  aoress  ana  return  the  name.  Null  (0) 
name  pointer  is  returned  if  * entry  not  found. 

f prtgnl i st 

display  namelist  tc  stdout.  List  is  preceeded  by  description  dscp  ana 
consists  of  octal  adress.  name  followed  by  newline 

Make_GNL 1 ST 

initialize  and  set  up  a namelist  of  adresses  and  names.  Space  is  allocated 
for  the  list  structure  list  and  the  list  buffer  items  if  the  pointers  are 
null.  Else  the  given  space  is  used.  Errors  result  in  a null  pointer  beino 
returned. 

Ac  d_GNL ist 

add  entry  to  Namelist.  Returns  current  number  of  items  in  list.  If  list  is 
full,  -I  is  returned. 
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i egrss . b( 3) 


( Message ) 


i egrss . b( 3 ) 


NAME 

i egrss,  gwarn,  gerror 


SYNOPSIS 

subroutine  iegrss  ( p , s tdout , f i 1 out ) 
character  p 
integer  stdout 
integer  filout 

entry  gwarn  ( p , s tdout , f i 1 out ) 
entry  gerror  ( p , stdout , f i 1 out ) 


DESCRIPTION 
i egrss 

Gwarn  and  gerror  display  warnings  and  errors  and  keep  the  count  of  warnings 
and  errors  encountered. 

p message  string  (input) 

stdout  unit  for  terminal  print  (input) 

filout  unit  for  print  output  (input) 

gwarn 

Displays  warning  ana  accummulates  counts. 


gerror 

Displays  error  message  and  accummulates  counts. 
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i ngrss . b( 3 ) 


( Message) 


i ngrss . b(  3 ) 


NAME 

ingrss,  ngrss,  awarn,  aerror.  egrss 
SYNOPSIS 

subroutine  ingrss 
character  p 

entry  ngrss 

entry  awarn  (p) 

entry  aerror  (p) 

entry  egrss 


DESCRIPTION 
i ngrss 

Contains  entry  points  that  proviae  for  the  start  and  stop  of  all  RELBET 
processors.  Ingrss  is  a generic  starting  point  for  all  routines.  It 
displays  the  processor  name,  version,  and  the  current  date  and  time  via  a 
cail  to  the  routine  datime.  It  also  reads  the  first  input  image  that 
specifies  the  execution  mode  and  the  calling  processor  for  the  suDordinate 
execution  mode.  Egrss  is  a generic  stopping  point  for  relbet  routines.  It 
displays  a termination  message  and  schedules  the  theexecution  of  the 
calling  processor  if  the  execution  was  in  the  subordinate  mode.  Awarn  and 
aerror  display  warnings  and  errors  and  Keep  the  count  of  warm  nos  and 
errors  encountered. 

p message  string  (input) 

ngrss 

displays  name  and  version  tc  terminal. 


awarn 

Displays  warning  anc  accummulates  counts. 


aerror 

Displays  error  message  and  accummulates  counts. 


egrss 

Displays  termination  messages. 
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( Message ) 


i oschk . b( 3 ) 


NAME 

i oschk 


SYNOPSIS 

subroutine  ioschk  (u, ios.s) 
integer  u 
integer  ios 
integer  s 


DESCRIPTION 
i oschk 

Checks  the  i/o  status  word  for  a file  and  sets  status  flag  to 
- 1 =eof , -1i=error.  if  eof  or  error  is  aetected,  a message  is 
terminal  and  print  displays. 

u 

i os 
s 


unit  number. 

i/o  status  wore  from  iostat  clause. 

output  status  word : O=okay.  -l=end  of  file,  -11=error 


O=okay , 
sent  to 
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msgdsp . b( 3 ) 


( Message ) 


msgdsp . 


NAME 

msgdsp,  xdsp,  xdsp2 , starz,  newpg 
SYNOPSIS 

subroutine  msgdsp  (x,u1,u2) 
character  x 
i nteger  u 1 
integer  u2 

entry  xdsp  (x,u1 ) 

entry  xdsp2  (x,u1,u2) 

entry  starz  (u 1 ) 

entry  newpg  (ul) 


DESCRIPTION 

msgdsp 

Displays  messages  to  specified  units.  Xdsp  display  character  string 
specified  unit.  Xdsp2  displays  character  string  to  two  units  unless*" 
are  the  same.  The  string  is  up  to  a '$'  or  to  8C~characters  if  no 
encountered.  Starz  display  asteriscs  and  newpg  flips  a page. 

x string  to  display  (input) 

ul  1st  display  unit  ( inout) 

u2  2nd  display  unit  (input) 

xdsp 

Displays  string  x to  unit  ul. 


xdso2 

Displays  siring  x xc  unit  u i . u2 . 


starz 

Displays  a line  of  asteriscs. 


newpg 

Flips  a page  in  display  file. 


b(3) 


to 
they 
i s 
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pr t_ut i 1 .c(3) 


( Message ) 


pr t_ut i 1 . c( 3 ) 


NAME 

fskip_lines,  skip_lines,  fprtStars,  prtStars  - display  utilities 
SYNOPSIS 


f sk i p_l i nes ( f des . 1 i nes ) 
FILE  *faes; 
i nt  1 i nes ; 

sk i p_l i nes ( 1 i nes ) 
i nt  1 i nes ; 

f prtStars ( f des , nl ines) 
FILE  *fcies; 
i nt  nli  nes ; 

pr tStars (nli nes ) 
i nt  nli nes : 


DESCRIPTION 
f sk i n nes 

skips  specif  led  number  of  lines  by  print  newlines  to  foes 
sk i p_l  i nes 

sene  specified  numoer  o*  newlines  to  stdout 
f pr tStars 

Prints  nl ines  of  60  stars  followed  by  a cr  to  specified  stream 
pr tStars 

Prints  nl  ines  of  60  stars  followed  by  a cr  to  stdout 
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ptrl i sts . c( 3 ) 


( Message ) 


ptrl i sts . c( 3 ) 


NAME 

addptr,  rmptr,  makeplist,  freeplist  - maintain  pointer  lists 


SYNOPSIS 


int  addptr (pi i st . ptr ) 

PTRLIST  *pl ist ; 
char  *otr; 

int  rmpt r (pi i st , ptr ) 

PTRLIST  *p1 i st ; 
char  *ptr; 

PTRLIST  *makep 1 i st ( max , 1 i st ) 
int  max; 
char  ** 1 ist; 

void  f reepl i st ( ptr 1 i st ) 
PTRLIST  *ptr 1 i st ; 


DESCRIPTION 

Removes  ano  adds  entries  to  pointer  list.  If  entry  not  in  list  remove  has 
no  effect.  If  entry  in  list  then  adc  has  no  effect.  returns  the  number  of 
remaining  pointers  in  tne  list  unless  aad  would  result  in  tne  max  oei ng 
exceeded  in  which  .case  '1  is  returnee  Tne  end  of  the  list  is  a 1 we  vs  marked 
Dy  a null  pointer  and  i * these  functions  are  used  to  edit  tne  list  tnere 
will  be  no  duplication.  removes  only  remove  the  first  occurence  from  the 
beginning  of  the  list  and  then  slide  other  entries  down 

addptr' 

add  ptr  to  pi  ist  returning  location  of  ptr  in  list  list  is  searched  from 
oeg inning  until  null  pointer  or  desired  pointer  is  found.  The  ptr  is  added 
is  there  is  room  and  skipcec  i - already  there  I * 'no  room  then  tne  lenth  of 
the  list  is  set  to  the  max  and  - t is  returnee 

rmptr 

remove  ptr  to  pi ist  returning  number  of  hst  elements  left  list  is  searched 
from  beginning  until  null  or  desired  ptr  found  any  remaining  list  elements 
are  then  shifted  down  and  the  number  of  pointers  remaining  is  returned 

makepl ist 

creates  a pointer  list  structure  and  returns  a pointer  to  it.  The  list 
storage  is  also  allocated  and  the  contents  in  the  input  list  are  stored  ir 
this  list  up  to  the  designated  maximum  max.  If  the  input  list  is  a null 
pointer  then  no  initialization  occurs.  The  new  list  structure  thus  has  its 
private  list  independent  of  the  input  list.  Errors  result  in  a null  list 
pointer  being  returned 

f reepl ist 

f^ees  storage  for  structure  ptrl ist.  Dire  events  may  happen  if  the 
structure  was  not  made  with  malloc  or  makeplist  value  of  0 is  always 
returned 
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ratetabl e. c( 3 ) 


(Message ) 


ratetabl e . c( 3 ) 


NAME 

aet_rate_tabl e_val  ue  - fetch  value  from  rate  table 


S VNDPS 1 5 


double  get_rate_tabl e_va 1 ue( t ime . table) 
double  time; 

TIMEL1NE_PTR  table; 


DESCRIPTION 

get_ra te_t ab 1 e_va 1 ue 

fetch  value  from  rate  table.  Value  is  interpolated  even  if  time  i 
start  of  table. 


before 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


stat_msg . c( 3 ) 


( Message ) 


stat_msg . c( 3 ) 


NAME 

Stat_Msg,  Error_Count,  Warm ng_Count , StatErrExit,  fprtFinish,  prtFinish, 
err_hpcode.  err_c ode,  berror , bwarn,  addefile,  rmefile.  setMaxErr  - status 
message  display  utilities 


SYNOPSIS 


char  Stat_Msg[ ] ; 

int  Error_Count ; 

int  Warni ng_Count ; 

int  StatErrExit; 

void  f prtF i ni sh( f des ) 

FIlE  des ; 

vo i d prt F i m sh( ) 

void  err_hpcode( f ) 

FILE  * f; 

voia  err_code(f> 

FILE  * f ; 

void  oerror ( msg . code ) 
cnar  *msg: 
i nt  code ; 

void  bwarn ( msg , code ) 
char  *msg; 
int  code; 

i nt  adae* i 1 e( f i l e ) 

FILE  * f i 1 e : 

i nt  rmef i 1 e( f i 1 e ) 

FILE  *f i 1 e ; 

int  setMaxErr ( err , warn , exfunc ) 
int  err, warn; 
i nt  ( *exf unc ) ( ) ; 


DESCRIPTION 

Displays  error  and  warning  messages  to  files  specified  by  a list  of  status 
d i splay  files. 


The  message  is  used  as  a format  in  a call  to  fprintf  sc  that  the  integer 
code  may  be  incorporated  in  the  message.  If  the  1st  character  of  the 
message  is  a semicolon  then  the  current  system  error  code  and  its 
description  is  also  written.  If  the  first  character  is  a colon  the  the 
HP  code  errinfo  is  written  a s well  as  the  system  code.  In  these  cases  the 
initial  letter  is  dropped.  Messages  are  written  to  a list  of  files  default 
for  which  is  stderr  and  stdout  however  they  may  be  changed  by  the  functions 
addefile  and  rmefile.  A maximum  of  3 files  may  be  specified,  other  ones 
are  ignored. 


The  function  setMaxErr  sets  the  maximum  number  of 
are  issued  before  a call  to  a termination  routine 
values  (default)  result  in  no  max  error  count 
function  Exit  is  specified  by  the  call.  A 


errors  and  warnings  that 
is  made.  Null  or  negative 
check.  The  termination 
null  value  results  in  the 
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stat_msg  . c( 3 ) 


( Message ) 


stat_msg . c( 3 ) 


routine  MaxErrExit  being  used  for  the  Exit, 
f prt F ini sh 

writes  final  message  to  specified  stream.  Message  includes  error  and 
warning  counts. 

pr t F i ni sh 

writes  final  message  to  stderr 
err__bpcode 

displays  HP  error  code  errinfo(2)  to  file 
er r_coae 

displays  system  error  code  to  file  see  errno(2)  for  details.  The  code  and 
description  are  both  displayed. 

berror 

prints  message  to  all  the  error  displays  and  increments  the  error  count 
bwarn 

prints  message  to  all  the  error  displays  and  increments  the  warning  count 
addef i 1 e 

add  file  to  list  of  display  files,  returns  total  number  of  display  files. 
-1  returnee  if  file  cannot  be  added 

rmef i 1 e 

remove  file  from  display  files,  returns  total  numoer  of  oi splay  files. 
setMaxE 

specifies  the  max  error  count  and  max  warning  count.  The  function  exfunc 
is  invoked  if  counts  exceeded.  The  default  of  Exit  (exit)  is  set  if  exfunc 
is  null. 
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str_store • c( 3 ) 


(Message ) 


str_store . c( 3 ) 


NAME 

Save_Str_Buf  - storing  strings 
SYNOPSIS 


char  *Save_Str_Buf ( ) 


DESCRIPTION 

Save_Str_Buf 

stores  contents  of  Str_Buf  and  returns  pointer  to  saved  string.  Allocates 
room  for  storage  if  neccesary.If  room  cannot  be  allocated,  then  as  much  cf 
the  string  as  possible  is  stored.  Note  that  the  last  character  of  Str_3uf 
(at  index  St r_Buf _S i ze ) is  set  to  the  null  character.  Thus  a maximum  of 
Str_Buf __S i ze  characters  may  be  stored.  The  string  is  stored  until  a null 
character  is  founc  thus  the  terminating  null  should  be  included.  A null 
pointer  is  returned  if  the  string  cannot  be  stored. 
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t imel i nes . c( 3 ) 


( Message) 


t i me! i nes . c( 3 ) 


NAME 

bsearch^timel ine,  1 search_t imel i ne,  i search_t i me  1 i ne , MakeT i meL i ne , 

f prtT  i meL  i ne  - timeline  information 


SYNOPSIS 


char  *bsearch_t imel i ne( t i me , t i me  1 ine) 
double  time; 

TIMELINE  *timeline; 

char  * 1 search_t imel i ne ( t i me . t i me  1 ine) 
double  time; 

TIMELINE  *t imel ine; 

char  * i search_t imel i ne( i ndex .time! ine) 
int  index; 

TIMELINE  ^timeline; 

TIMELINE  * MakeT i meL i ne ( t i me  1 ine, tabl e , n_i terns , 1 1 me_byte , rec_s ize ) 
TIMELINE  ’♦timeline; 
char  *table; 

int  n_i terns . t ime_byte , rec_s i ze; 

void  f p^tT i meL i ne( t imel ine) 

TIMELINE  ^timeline; 


DESCRIPTION 

bsearch__t  i me!  ine 

performs  binary  search  of  timeline  table  returning  pointer  to  last  entry 
with  a time  less  than  or  equal  to  the  specified  time.  The  current^ item 
member  of  the  timeline  structure  is  set  as  a side  effect.  If  time  is 
before  initial  entry,  null  pointer  (0)  is  returned  and  the  current_item  is 
set  to  - 1 . 

1 search_t i mel ine 

performs  linear  search  of  timeline  table  returning  pointer  to  last  entry 
with  a time  less  than  or  eaual  tc  the  specified  time.  The  search  begins  at 
item  indicated  by  current_item  member.  If  tnis  memoer  is  negative,  a 
binary  search  is  conducted  instead.  Error  values  and  side  effects  are  the 
same  as  for  bsearch_t i mel i ne . 

i search_t imel ine 

performs  an  inspection  of  timeline  table  returning  pointer  to  entry 
positioned  at  the  input  index  from  the  beginning  of  the  table.  The  search 
begins  at  item  indicated  by  the  index.  If  this  number  is  out  of  range  of 
the  table  an  error  value  is  returned 

MakeT i meL i ne 

Sets  up  a timeline  structure.  If  either  the  timeline  or  table  pointer  is 
null,  then  space  is  allocated  via  malloc  and  calloc.  Thus  these  structures 
may  be  freed.  Errors  result  in  null  pointer  being  returned 

f pr tT i meL i ne 

displays  timeline  structure  to  stdcut 
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tpdsp . b( 3 ) 


(Message) 


tpdsp . b( 3 ) 


NAME 

tpdsp,  tdsp,  pdsp , tpstrz,  tstrz,  pstrz 
SVNOPSIS 

subroutine  tpdsp  (msg) 
character  msg 

entry  tdsp  (msg) 

entry  pdsp  (msg) 

entry  tpstrz 

entry  tstrz 

entry  pstrz 


DESCRIPTION 

tpdsp 

Displays  messages  to  print  and  terminal  units, 
msg  message  string  (input/output) 

tdsp 

Displays  message  tc  terminal  unit. 


pdsp 

Display  message  to  nominal  print  unit  out. 


tpstrz 

Displays  string  of  aster iscs  to  terminal  and  print  file, 
tstrz 

Displays  string  of  asteriscs  to  terminal. 


pstrz 

Displays  string  of  asteriscs  to  print  file. 
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mktape . b(  3 ) 


( Mktape ) 


mktape . b( 3 ) 


NAME 

mktape 


SYNOPSIS 

program  mktape 


DESCRIPTION 


mktape 

This  program  prompts  user 
b i nary  file  with  mi xed 
readable  tape  in  the  same 


for  i nputs  requ i red 
type  data  words . 
m i xed  order . 


to  process 
Output  is 


an  hp900C  created 
a univac  FORTRAN  V 
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unvout . c( 3 ) 


(Mktape ) 


unvout . c( 3 ) 


NAME 

UNVOUT,  getbits,  put72,  putchr  - routine  to  build  UNIVAC  tape  file 
SYNOPSIS 


UNVOUT ( rec , f mt , buf out ) 
int  *rec; 
int  *fmt; 
i nt  *buf out ; 

getbi ts ( x,p,k) 
unsigned  x; 
int  p , k ; 

put72 ( w , b , bo ) 
int  *do; 
char  *w,*b; 

putchr ( w, buf , Di ts ) 
int  *b i ts ; 
char  w,*buf; 


description 

UNVOUT 

Routine  to  build  UNIVAC  tape  file.  This  routine  is  machine ■ depended 
rec  array  containing  output  data 

array  containing  output  record  specifications 
bufout  output  buffer 

gett i t s 

function  to  get  bits 
put72 

function  to  put  72  bits  in  output  buffer 
d define  as  char  to  eliminate  shift 

putcnr 

function  to  put  character  in  output  buffer 
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ddna . b( 3 ) 


NAME 

ddna 


SYNOPSIS 

subrout i ne  ddna  ( x , t , npts , maxord , ddn ) 

double  precision  x ( * ) 

double  precision  t (*) 

integer  npts 

integer  maxord 

double  precision  ddn  (10) 


DESCRIPTION 

ddna 

Variate  divided  difference  noise  analysis, 
x data  ( i nput ) . 

t times  for  each  datum  (input). 

npts  number  of  elements  in  x,t  (input). 

maxord  maximum  order  of  differences  to  be  used  (input). 

ddn  variate  difference  noise  values  up  tc  10th  order  (output). 
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ddno i s . b( 3 ) 


( No i sana 1 ) 


ddnoi s . b( 3 ) 


NAME 

ddnoi s 


SYNOPSIS 

program  ddnoi s 

DESCRIPTION 
ddnoi s 

Driver  for  noise  analysis  using  variate  divided  difference. 
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nnoi s . b( 3 ) 


NAME 

nnois 


SYNOPSIS 

subroutine  nnois  ( f nam , f namo , nobs , obaray , obdel t ) 


DESCRIPTION 
nno  i s 

This  subroutine  fetches  the  user  inputs  for  the  common  blocks  needed  by 
this  program  input  file  name  output  file  name  number  of  observations  to 
process  array  of  frame  ids  array  of  time  interval  lengths  w/r  to  obs  type 
to  process  for  noise  computation 
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( Numdi s ) 


dspxq . b( 3 ) 


NAME 

dspxq.  xqdspl,  xqdsph,  shoxq 


SYNOPSIS 

subroutine  dspxq  ( t , i s , i f , d , stat ) 
double  precision  t 
integer  is 
integer  if 

double  precision  d (6) 
integer  stat 

entry  xqdspl  (stat) 

entry  xqdsph  (t) 

entry  shoxq  ( t , xpg . i f , d , i s ) 


DESCRIPTION 

dspxq 

Entry  points  for  initialization  ana  performing  xqdsp  output. 

t time  tag  (input/output) 

1 £ sea  t e option:  1 = 1 1 1 vvv , 2 s 1 naaaa . 3= 1 vaaww . 4 =asawww 

1 = 1 eng  . v = vel  , a=ang . r,  = n . c , w=ang  rate  (input) 

if  parameter  indsx( input /outDut ) 

d data  Duf f er ( i nput/output ) 

stat  status  flag  (output) 

xqdsp 1 

Initializes  compute  flags  and  check  for  errors, 
xqdsph 

Initializes  display  heading  for  parameter  group, 
shoxq 

Performs  output  for  xqkmpt . 


where 
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( Numd i s ) 


dxcmp . b( 3 ) 


NAME 

dxcmp 

SYNOPSIS 

block  data  dxcmp 

DESCRIPTION 

dxcmp 

This  block  data  routine  initializes  the  common  used  by  this  program 
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dxqdsp . b( 3 ) 


( Numdi  s ) 


dxqdsp . b( 3 ) 


NAME 

dxqdsp 

SYNOPSIS 

block  data  dxqdsp 

DESCRIPTION 

dxqdsp 

This  block  data  routine  initializes  the  common  used  by  this  program 
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gdi sp . b( 3 ) 


( Numdi s ) 


gd i sp . b( 3 ) 


NAME 

gdi  sp 

SYNOPSIS 

program  gch  sp 

DESCRIPTION 
gdi  sp 

Executive  for  generic  display. 
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gdspop . b( 3 ) 


( Numdi s ) 


gdspop . b( 3 ) 


NAME 

gdspop 


SYNOPSIS 

subroutine  gdspop  ( stat , rec , count , d ) 
integer  stat 
integer  rec 
integer  count 

double  precision  d (0:200) 


DESCRIPTION 

gdspop 

Solicits  options  for  display  of  files  by  frames. 

stat  status  word  (i/o) 

rec  record  number  (input/output) 

count  number  of  frames  tc  display  (input/output) 

d record  data  (output) 
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gndsp . b( 3 ) 


( Numdi s ) 


gndsp . b(  3 ) 


NAME 

gndsp 


SYNOPSIS 

subroutine  gndsp  (stat, idz) 
integer  stat 
integer  idz  (20) 


DESCRIPTION 

gndsp 

Displays  selected  frames  of  a standard  format  file, 
stat  status  word  (i/o) 

idz  idz  of  parameters  to  display  ( i nput/output ) 
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1 g 1 nt . b( 3 ) 


( Numdi s ) 


1 gi nt . b( 3 ) 


NAME 

Igint.  Igfac 
SYNOPSIS 

subroutine  Igint  ( m , n , td , t , eval , f , z .) 
integer  m 
integer  n 

double  precision  eval  (m,n) 
double  precision  f (m,n) 
double  precision  t (n) 
double  precision  td 
double  precision  z (m) 

entry  Igfac  (m , n, t , eval , f ) 

DESCRIPTION 

Igint 

1 agrangi an  interpolation  (Igint)  of  n m-vectors.  set  up  of  factors  (Igfac) 
m length  of  each  entry  in  double  words 

n order  of  i nterpol at i on( i nput ) 

eval  array  n-point  buffer  (input) 

f array  of  interpolation  factors  ( input/ output ) 

t array  of  time  tags  for  entries 

td  desired  time  (input) 

z output  array  (output) 

1 gf  ac 

set  up  of  factors 


COMMENTS 

if  time  tag  is  witnin  14  digits  of  span,  the  no  i nterpol at l on  output  is  set 
to  nearby  point.  Factors  must  be  precompjted  by  Igfac  or  similar  routine 
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nxcmp . b( 3 ) 


(Numdi  s ) 


nxcmp . b( 3 ) 


NAME 

nxcmp 

SYNOPSIS 

subroutine  nxcmp 

DESCRIPTION 

nxcmp 

This  subroutine  fetches  the  user  inputs  for  the  common  blocks  needed  by 
th i s program 
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nxqdsp . b( 3 ) 


( Numdi s ) 


nxqdsp . b( 3 ) 


NAME 

nxqdsp 

SYNOPSIS 

subroutine  nxqdsp 


DESCRIPTION 

nxqdsp 

This  subroutine  fetches  the  user  inputs  for  the  common  blocks 
this  program 
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needed  by 
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xcmpar . b( 3 ) 


( Numd i s ) 


xcmpar . b( 3 ) 


NAME 

xcmpar 

SYNOPSIS 

program  xcmpar 


DESCRIPTION 

xcmpar 

driver  for  comparison  of  trajectories.  output  may  be  2 trajectories  or 
relative  trajectory 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


xqdsp . b( 3 ) 


(Numdi s ) 


xqdsp . b( 3 ) 


NAME 

xqdsp 

SYNOPSIS 

program  xqdsp 

DESCRIPTION 

xqdsp 

Driver  for  display  of  trajectory  and  attitude  information. 
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xqkmpt .b( 3) 


( Numdi  s ) 


xqkmpt . b( 3 ) 


NAME 

xqkmpt,  xqkmpl,  xqkmp2 


SYNOPSIS 

subroutine  xqkmpt  ( t , x 1 , x2 , q . w , s tat ) 

double  precision  t 

double  precision  xl  (6) 

double  precision  x2  (6) 

double  precision  q (4) 

double  precision  w (3) 

integer  stat 

entry  xakmpl  (stat) 

entry  xqkmp2  ( t , x 1 , x2 , q , w , stat ) 


DESCRIPTION 

xqkmpt 

Computes  display  and  plot  parameter s for  g i ven  time  in  xqdsp . 
t time  tag  ( i nput  ) 

xl  1st  vehicle  state  (i nput ) 

x2  2nd  vehicle  state  (input) 

c ctt i tude  Quaternion  ( i nput )_ 

w attitude  rate  (input) 

stat  status  flag  (output) 

xqkmpl 

Initializes  compute  -Hags  and  check  for  errors. 


xqkmp2 

Initializes,  computes,  and  displays  required  parameters . 
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( Obs ) 


obcode . b( 3 ) 


NAME 

obcode 


SYNOPSIS 

subroutine  obcode  ( nam , i d , pxcl ud ) 
cnaracter*4  nam 
integer  id 
integer  pxclud 


DESCRIPTION 

oocode 

Decodes  frame  id  for  observation  file  and  checks  whether  the  observation 
has  been  excluded. 

nam  obs  frame  id  (input) 

id  data  type  id  (output) 

pxclud  exlcusion  flag  (output) 
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rtangl . b(3) 


(Obs) 


rtangl  . b( 3 ) 


NAME 

rtangl 


SYNOPSIS 

subrout i ne  rtangl  ( xts i , ua , ub , g , gr , gv ) 

double  precision  xtsi  (6) 

double  precision  ua  (3.) 

double  precision  ub  (3) 

double  precision  g 

double  precision  gr  (3) 

double  precision  gv  (3) 


DESCRIPTION 

rtangl 

Computes  angles  and  partials  for  angle  observations  whose  tangent  is  ratio 
of  the  projection  of  a range  vector  onto  two  sensor  axes.  Such  angles 
include  rendezous  radar  roll  and  shaft,  and  coas  and  startracker  horizontal 
and  vertical  angles.  tan(gj  = r*us  / r*ub 

xtsi  inertial  target  relative  to  sensor  position  and  vel oc i ty ( i nput ) 
ua  first  unit  axis  vector  (input) 

ud  secono  unit  axis  vector  (input) 

g observation  angle  (output) 

gr  partia1  of  angle  with  respect  tc  target  position  (output) 

gv  partial  of  angle  with  respect  tc  target  velocity  (output) 

COMMENTS 

1)  Assumes  that  the  partials  are  initialized  to  zero  before  the  call  to 
this  routine.  2)  Assumes  that  the  angle  rates  have  been  compensated  for 
the  angular  motion  of  the  observing  vehicle.  3)  Tne  axes  vectors  must  be 
normal izec  anc  nave  the  correct  sense.  A)  Tnus  they  are  not  neccessarily 
the  unit  vectors  for  the  sensor. 
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tangle . b( 3 ) 


(Obs ) 


tangle . b( 3 ) 


NAME 

tang!  e 


SYNOPSIS 

subroutine  tangle  ( xts i , ua , ub , g , gr ) 

double  precision  xtsi  (6) 

double  precision  ua  (3) 

double  precision  ub  (3) 

double  precision  g 

double  precision  gr  (3) 


DESCRIPTION 
tangl  e 

Computes  angles  and  partial s for  angle  observations  whose  tangent  is  ratio 
of  the  projection  of  a range  vector  onto  two  sensor  axes.  Such  angles 
include  rendezous  radar  roll  and  shaft,  and  coas  and  startracker  horizontal 
and  vertical  angles.  tan(g)  = r*ua  / r*uo 

xtsi  inertial  target  relative  to  sensor  position  and  velocity  (input) 
first  unit  axis  vector  (input) 
ub  second  unit  axis  vector  (input) 

Q observation  angle  (output) 


gr  partial  of  angle  with  respect  to  taroer  position  (oatpu:  ! 


COMMENTS 

1)  Assumes  that 
this  routine, 
sense.  3)  Thus 


the  part i a 1 s are  initialized  to  zero  before  the  call  to 
2)  The  axes  vectors  must  be  normalized  and  have  the  correct 
They  are  not  neccessarily  the  unit  vectors  for  trie  sensor. 
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NAME 


xcoas,  coash,  coasv,  cinit,  cbugs 


SYNOPSIS 

subroutine  xcoas  (g,gr) 
double  precision  g 
double  precision  gr  (3) 

entry  ecash  (g.gr) 

entry  coasv  (g,gr) 

entry  emit 

entry  cbugs 


DESCRIPTION 

xcoas 

Computes  coas  angle  observations  and  partials. 
g angle  observation  (output) 

gr  partial  of  observation  with  respect  to  the  target  inertial  position 

( output  ) 

coash 

Computes  horizontal  angle  and  requireo  partials. 


coasv 

Compute  vertical  angl e and  requ i red  partials. 


ci ni  t 

Ini  t i a 1 izes  . 


cbugs 

Writes  oebug  information. 
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xradar . b( 3 ) 


(Obs) 


xradar . b( 3 ) 


NAME 

xradar,  range,  ranrat , shaft,  sftrat,  roll,  rolrat,  trnion,  trnrat,  pitch, 
pchrat 


SYNOPSIS 

subroutine  xradar  (g,gr,gv) 
double  precision  g 
double  precision  gr  (3) 
double  precision  gv  (3) 

entry  range  (g,gr) 

entry  ranrat  (g,gr,gv) 

entry  shaft  (g, gr ) 

entry  sftrat  (g.gr.gv) 

entry  rol 1 (g , gr ) 

entry  rolrat  (g,gr,gv) 

entry  trnion  (g,ar) 

entry  trnrat  (g.ar.gv) 

entry  pitch  ( g , gr ) 

entry  pcnrat  (g.ar.gv* 

DESCRIPTION 

xradar 

Computes  rendevous  radar  observations  and  partials. 


o 

Computesd  observation  (outpu 

x ) 

gr 

partial  of  observation  with 
position  (output) 

respect  to 

target 

vehicle 

i nert i al 

gv 

partial  of  observation  with 
velocity  ( output  ) 

respect  to 

target 

veh  i c 1 e 

i nert i al 

range 

Computes  range. 


ranrat 

Computes  range  rate. 


shaft 

Computes  shaft. 


sftrat 

Computes  shaft  rate. 


rol  1 

Computes  rol 1 . 


rol rat 

Computes  roll  rate. 
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xradar .b(3) 


(Obs ) 


xradar . b( 3 ) 


trni on 

Computes  trunnion. 


trnrat 

Computes  trunnion  rate. 


pitch 

Computes  p i tch . 


pcnrat 

Computes  pitch  rate . 


COMMENTS 

Assumes  rates  have  been  compensated  for  observ i ng  f rame  angu 1 ar  motion. 


TRW  Houston  System  Services 


2 


(printed  12/18/86) 


xtrack . b( 3 ) 


( Obs ) 


xtrack . b( 3 ) 


NAME 

xtrack,  trackh,  trackv,  stinit 


SYNOPSIS 

subroutine  xtrack  ( i t rack , g , gr ) 
integer  i track 
douDie  precision  g 
double  precision  gr  (3) 

entry  trackh  ( i track , g , gr ) 

entry  trackv  ( i track , g , gr ) 

entry  stinit 


DESCRIPTION 

xtrack 

Computes  star  tracker  angle  observations  and  partial s. 
i track  star  tracker  sensor  id  (input) 
g angle  observation  (output) 

gr  partial  of  observation  with  respect  to  the  target  inertial 

(output) 

trackh 

Computes  horizontal  angle  and  required  partials. 
trackv 

Computes  vertical  angle  and  required  partials. 
stinit 

Initial i zes . 


pos i t i on 
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ascal e . b(3 ) 


(Plot) 


ascal e . b( 3 ) 


NAME 

ascale 

SYNOPSIS 

program  ascale 

DESCRIPTION 
asca 1 e 

Determines  minima  and  maxima  of  specified  parameters  in  specified  files. 
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automx . b( 3 ) 


(Plot ) 


automx .b( 3 ) 


NAME 

automx 


SYNOPSIS 

subroutine  automx 

DESCRIPTION 

automx 

Sets  minimum  and  maximum  of  axes  based  on  parameter  min//max. 


COMMENTS 

Considers  only  those  curves  that  are  designated. 
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dpi ot . b( 3 ) 


(Plo 


dpi ot . b( 3 ) 


NAME 

dpi  ot 
SYNOPSIS 

block  daxa  dplot 

DESCRIPTION 
dpi  ot 

This  block  data  routine  initializes  the  common  used  by  this  program 
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mmxchk . b( 3 ) 


(Plot) 


mmxchk . b( 3 ) 


NAME 

mmxchk 


SYNOPSIS 

subroutine  mmxchk  ( i , pmmx , mmx , rchck ) 

integer  i 

integer  pmmx 

real  mmx  (2) 

real  rchck 


DESCRIPTION 

mmxchk 

Checks  value  against  min/max.  Value  is  omitted,  or  set  to  min/max 
depending  upon  input  flag. 


i 

pmmx 


mmx 


delete  flag  (set  to  -1  if  point  deletes  else  left  alone)  (output) 


min/max  opxions  for  output  parameters  (input)  2=^ecomoute . + 1 =set  to 
within  input  minmax,  -1=omit  if  outside  input  m l nmax . “3=c 1 i p if 
outside  file  minmax,  else=set  to  file  minmax  last  entry  specifies 


array  of  minimum  and  maximum  values  for  output 
parameters. ( input/output) 


rchck 


test  value  for  indeoenoent  parameter  t i nput/output ) note  that  is  in 
internal  units. 
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npl ot . b( 3 ) 


(Plot) 


npl ot . b( 3 ) 


NAME 

npl  ot 


SYNOPSIS 

subroutine  nplot 


DESCRIPTION 
npl  ot 

This  subroutine  fetches  the  user  inputs  for  the  common  clocks  needed  by 
this  program 
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p 1 otx . b( 3 ) 


(Plot) 


pi otx . b( 3 ) 


NAME 

pi  Otx 

SYNOPSIS 

program  plotx 

DESCRIPTION 
p 1 otx 

Main  driver  for  graphic  routines. 
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pi tnpt . b( 3) 


(Plot) 


pi tnpt . b( 3 ) 


NAME 

pi tnpt,  grfnpt 


SYNOPSIS 

subroutine  pltnpt 
entry  grfnpt 


DESCRIPTION 
pi tnpt 

obtain  general  inputs  for  plot  routine  and  initialize  various  parameters 
such  as  labels,  titles,  axes,  curves, time  default,  and  parameter  id. 


grfnpt 

obtain  graph  specific  input 
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q2crvz . b( 3 ) 


(Plot) 


q2crvz . b( 3 ) 


NAME 

q2crvz,  q2crv,  a2ecrv,  a21stc,  q21egn 
SYNOPSIS 

subroutine  q2crvz  (ikurve,i,j) 
integer  ikurve 
integer  j 
integer  i 

entry  q2crv  (ikurve) 
entry  q2ecrv  (ikurve) 
entry  a21sto  (ikurve, i,j) 
entry  q2 1 egn  ( i ) 

DESCRIPTION 

q2crvz 

Entry  points  for  2d  graphics.  Sets  up  pre 1 l mi nar i es  for  curve  plot,  finish 
drawing  curve,  store  legend  information,  and  display  legend. 

ikurve  curve  index  ( i npu t/output 1 

j numoer  of  calls  for  current  curve. (input ) 

i current  count  of  how  many  times  curve  segment  has  been  drawn 

( i nput ) 

q2  crv 

Sets  up  prel i mi nar i es  for  curve  plot. 
q2ecrv 

Finisnes  drawing  cu^ve. 
q2 1 sto 

Stores  legend  information. 


q2 1 egn 

Displays  legend. 
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q2draw . b(  3 ) 


(Plot) 


q2draw . b( 3 ) 


NAME 

q2draw 


SYNOPSIS 

subroutine  a2draw  ( x , nx , i mark , nl bl , ncnt ) 

real  x ( 1000 , 2 ) 

integer  nx 

integer  imark 

integer  nlbl 

integer  ncnt 


DESCRIPTION 

q2draw 

Entry  points  for  2d  graphics.  Specifies  the  curves,  lines  ana  nlabels. 

x buffer  for  values  (input) 

nx  number  of  points  in  array  ( input) 

imark  mark  options  for  plot  curve  ( i nput/output ) 

nlbl  label  flag  for  plot  curves  (input)  <0  means  label  every  nth  point 
starting  an  1 >0  means  label  every  ntn  point  using  file  sequence 

no . 

ncnt  current  index  count  at  beginning  of  curve  ( i nput/output ) 
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(Plot) 


q2gnph . b( 3 ) 


NAME 

q2grph , q2fnsh 


SYNOPSIS 

subroutine  q2grph 
entry  q2fnsh 


DESCRIPTION 

q2grph 

Entry  points  for  20  graphics.  Specifies  the  general  layout  for  the 
Sets  and  specifies  the  page  size,  grace  area,  subplot  area,  heading, 
x and  y axes,  labels  ...etc.  Defines  physical  set  up  of  Dlot. 


q2f nsh 

Finishes  up  a plot. 


plot. 

angles 
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qdevi n . b(3 ) 


(Plot) 


qdev i n . b( 3 ) 


NAME 

qdevi n,  adevrl 
SYNOPSIS 

sutorout i ne  qdevin 
entry  qaevrl 

DESCRIPTION 
qdev i n 

Initializes  and  releases  plot  device, 
qdevr 1 

Rei eases  dev i se . 
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qpi ntx . b( 3 ) 


(Plot) 


qpi ntx . b(  3 ) 


NAME 

qp i ntx 


SYNOPSIS 

subroutine  qpintx  (krv. stat) 
integer  krv 
integer  stat 


DESCRIPTION 
qp i ntx 

Initializes  and  fetches  data  for  plotting. 

krv  curve  id  (input) 

stat  file  io  status  (input/output) 
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qpl ot . b( 3 ) 


(Plot) 


qpl ot . b( 3 ) 


NAME 

qpl  Ot 
SYNOPSIS 

subroutine  qplot 

DESCRIPTION 
qpl  ot 

Draws  a plot:  broken  out  for  segmentation  purposes. 
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qpl t2d . b( 3 ) 


(Plot) 


qpl t2d.b(3) 


NAME 

qpU2d 


SYNOPSIS 

subroutine  qplt2d 


DESCRIPTION 
qpl t2d 

Initializes  variables  such  as  stop  flag,  terminal,  curves,  plottina 
and  finishes  up  curves. 


array 
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qpxget .b(3) 


(Plot) 


qpxget . b( 3 ) 


NAME 

qpxget 


SYNOPSIS 

subroutine  qpxget  (x, pcont) 
rea 1 x ( 1000 , 2 ) 
integer  pcont 


DESCRIPTION 

qpxget 

Initializes  and  fetches  data  for  plotting, 
x output  ar ray  (output ) 

pcont  status  flag  (input/output)  o=last  request  done,>0  continue 
request , <0  error 


with 
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qslptn.b(3) 


(Plot) 


qslptn.b( 3) 


NAME 

qslptn,  qrlptn 
SYNOPSIS 

subroutine  qslptn  (dotdsh) 
integer  dotdsh 

entry  qrlptn  (dotdsh) 

DESCRIPTION 
qs 1 ptn 

Entry  points  to  set  and  reset  line  patterns, 
dotdsh  line  type  (input/output) 
qrlptn 

Finishes  up  drawing  curve. 
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scl set . b(  3 ) 


(Plot) 


scl set . b( 3 ) 


NAME 

scl set 


SYNOPSIS 

subroutine  sclset  ( rm i n , rmax , step ) 
real  rmin 
real  rmax 
real  stec 


DESCRIPTION 
scl set 


Ad j ust s 
to  give 

input  rmin/rmax  value  to 
approx  10  steps  form  min 

i ntearal  steps . 
to  max. 

The  step  size  is  chosen 

rm  i n 

rmi ni mum  value  ( i nput ) 

rmax 

rmax i mum  value  ( i nput ) 

step 

step  size  (output ) 
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a32t 36 . b ( 3 ) 


( Product ) 


a32t36 . b( 3 ) 


NAME 

a32 t36 


SVNOPSIS 

subroutine  a32t36  (temp, ctemp) 
integer  temp  (3) 
integer  ctemp  (3) 


DESCRIPTION 
a32 t 36 

Move  32  bits  to  36  bits, 
temp  input  buffer  (input) 

ctemp  temporary  buf fer ( output ) 

COMMENTS 

Must  not  oe  compiled  with  range 


check i ng . 
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( Product ) 


cmvbi t . b( 3 ) 


NAME 

cmvbi t 


SYNOPSIS 

subroutine  cmvbit  (n, in, iw, ib, itemp.ow.ob) 

integer  n 

i nteaer  in  ( 3 ) 

integer  iw 

integer  ib 

integer  itemp  (3) 

integer  ow 

integer  ob 


DESCRIPTION 
cmvb i t 

This  is  a compound  version  of  getbit,  which  allows  specification  of  ow  and 
ob,  thus  permitting  restack  of  one  array  into  another.  This  program  extract 
n consecutive  bits  from  the  array  in,  beginning  with  the  initial  word  iw 
and  initial  bit  ib,  and  store  in  the  ow.ob  portion  cf  tne  array  itemp.  n 
can  be  any  number  of  bits,  or  18,  36,  or  72  for  univac  created  records . 
itemp  is  treated  as  32  bit  wore  for  current  applications. 

r,  number  of  bits  (inDUt) 

in  initial  array  (input) 

iw  initial  wore  (input) 

ib  initital  bits  (input) 

itemp  temporary  storage  (output) 

ow  output  word  (output) 

ob  output  bits  (output] 

COMMENTS 

Must  not  be  compiled  with  range  checking. 
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comptw . b( 3 ) 


(Product ) 


comptw . b( 3 ) 


NAME 

comptw 


SYNOPSIS 

subroutine  comptw  ( rdata , i type , kt ypes , kwords , num ) 

real  rdata  (3) 

inteaer*4  num  (50) 

integer*4  itype  (50) 

integer*4  ktypes 

integer*4  kwords 


DESCRIPTION 

comptw 

This  subroutine  computes  the  data  types  and  the  number  of  words  to  be 
written  in  each  data  type, 

rdaia  data 

num  number  of  data 

itype  types 

ktyDes  data  types 

kwords  number  of  woras 
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NAME 

dprod 


SYNOPSIS 

block  data  dprod 

DESCRIPTION 

dprod 

This  block  data  routine  initializes  tne  common  used  by  this  program 
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NAME 

dxset 


SYNOPSIS 

subroutine  dxset  (spg.dx,np) 
integer  spa  (20) 
character^  dx  (200) 
integer  np 


DESCRIPTION 

dxset 

Forms  dictionary  for  REL5ET  special  products, 
spg  parameter  group  flags  (input) 

dx  dictionary  buffer  (output) 

np  number  of  parameters  in  output  ( l+numoe^  of  parameters) 
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NAME 

getspg 


SYNOPSIS 

subroutine  getspg  ( di ndex , t , x 1 , x2 , q , w t spg , d . count ) 

integer  count 

integer  dinaex 

double  precision  t 

double  precision  xl  (6) 

double  precision  x2  (6) 

double  precision  q (4) 

double  precision  w (3) 

double  precision  d (200) 

integer  spg  (20) 


DESCRIPTION 

getspg 

Computes  required  RELBE7  product  parameters, 
count  countflag  (output) 

d i ndex  i ndex  for  track i ng  i nterva Is  ( i nput ) 
t time  tag  ( i nput ) 


x 1 

1st  venicl 

le  state 

( i nput 

x2 

2nd  vernc' 

ie  state 

( i nput 

q attitude  quaternion  (input) 

w attitude  rate  (input) 

d data  buffer  (output) 

spg  parameter  group  f 1 aas  (input) 
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NAME 

hptou5 


SYNOPSIS 

subroutine  hptou5  ( i op , i nrec , maxrec , npar ) 

integer  iop 

integer  inrec  (400) 

integer  maxrec 

integer  npar 

DESCRIPTION 

hptou5 

Writes  the  header  record,  dictionary  record  and  data  records  on  to  the 
tape.  Output  is  a uni  vac  FORTRAN  V readaole  tape  in  the  same  mixed  order . 

iop  type  of  calls  (input/output)  1 initialization  call, open  tape 

drive, and  write  header  2 dictionary  call  3 data  call  4 wrap  up  call 

inrec  input  record 

maxrec  maximum  record  count ( output ) 
npar  number  of  parameters  (input) 
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NAME 

nprod 


SYNOPSIS 

subroutine  nprod 


DESCRIPTION 

nprod 

This  subroutine  fetches  the  user  inputs  for  the  common  blocks  needed  by 
this  program 
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ntran . c( 3 ) 


NAME 

NTCLOSE , NTEOF , NTFILE,  NTOPEN , NTREAD , NTRITE , NTRW , NTRWRL , NTBLCK  - 
FORTRAN  callable  routines  that  perform  various  tape  manipulations 


SYNOPSIS 


void  NTCLOSE ( chanl , status ) 
i nt  *chanl ; 
i nt  ^status; 

void  NTEOF  ( chanl  status  ) 
i nt  *chanl ; 
int  ^status; 

void  NTFI LE ( chanl , f count , status ) 
int  *chanl ; 
int  *fcount; 
int  ^status; 

void  NTOPEN ( chan 1 . dr i ve , status ) 

int  *cnanl ; 

int  *drive; 

lone  int  ^status; 

vo i d NTREAD ( chan 1 . nobvtes , buffer , status , overf  low  j 

i nt  *chanl ; 

int  *nobytes; 

char  ^buffer: 

long  int  ^status; 

long  ^overflow; 

void  NTRITE(cnanl , nooytes , buff er , status ) 

int  * chanl ; 

int  *nobytes; 

char  ^buffer; 

int  ^status ; 

void  NTRW( chanl , status ) 
i nt  *cnanl ; 
int  *statu£; 

void  NTRWRL ( chanl , status ) 
i nt  *chanl ; 
int  "status; 

void  NTBLCK ( chanl , f count , status ) 
int  *chan1 ; 
int  *fcount; 
int  ^status; 


DESCRIPTION 

These  functions  are  FORTRAN  callable  routines  that  perform  various  tape 
manipulations.  The  FORTRAN  calling  sequence  for  NTCLOSE , NTEOF , NTRW  and 
NTRWRL  is 

call  NAME ( chanl , status ) 

where  all  the  arguments  are  integers.  The  chanl  is  the  file  descriptor 
obtained  from  a call  to  ntopen.  If  the  request  is  performed  successfully, 
status  returns  a zero,  otherwise  status  is  positive  and  contains  the  system 
error  number  (errno).  If  an  error  occurrs,  an  error  message  is  printed  on 
the  standard  error  device  (stderr  or  unit  7).  The  FORTRAN  calling 
sequences  for  NTF I LE , NTOPEN . NTREAD , NTBLCK , and  NTRITE  are 
call  NTF I LE ( chanl , f count , status ) 
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( Product ) 


ntran . c ( 3 ) 


call  NTOPEN( chanl , dr i ve , status ) 

cal  1 NTREAD(chan1 , nobytes . buff er , status , overt  1 ow ) 
call  NTRITE ( chanl , notoy tes , buffer, status) 
call  NTBLCK  (chanl  , f count , status  ) 

For  detail  calling  arguments  description,  see  individual  function  below. 

Restrictions  : maximum  of  20  file  descriptors  may  be  open  at  any  one  time 
i nc't  ud  i ng 

stdin  (unit  5) 
stdout  (unit  6 ) 
stderr  (unit  7 ) 

NOTE:  the  functions  are  designed  only  for  raw  magnetic  tape  with  7970E  tape 
drive.  files  used  /dev/rmtl  assumed. but  no  specific  code  in  this 

rout i ne . 


NTCLOSE 

tape  file  close  routine. 


NTEOF 

write  an  end  of  file  (EOF)  mark  on  the  magnetic  tape. 

NTFILE 

position  a tape  file  forward  or  oackward  over  an  end  of  file  marks.  The 
FORTRAN  calling  sequence  is  call  ntfile  (chanl , f count . status ) where  all  the 
arguments  are  integers.  T ne  number  of  EOF  marks  tc  pass  over  is  f count, 
where  fcour.t  positive  implies  forward,  negative  implies  backward  motion. 


NTOPEN 

FORTRAN  cal  lade  taoe  file  open  routine  for  multiple  (i.e.  two)  tape  drives 
files  usee  : /dev/rmtC  /dev/rmtl 


NTREAD 

reacs  one  physical  block  per  call  where 

status  specifies  error  flag  or  actual  count  of  woros  transferred 
nobytes  specifies  number  of  bytes  to  transfer; 
buffer  specifies  pointer  to  user  supplied  buffer  array; 
overflow  specifies  the  count  of  pvtes  ignored  in  physical, 
restrictions 

1.  file  must  be  opened  by  a C call  to  open( ) . 

2.  user  supplied  buffer  must  be  a singly  subscripted  integer 
a^ray  large  enough  tc  contain  the  largest  physcia!  block  . 

3.  involves  possibly  macnine  aependent  code  for  HP -9000  & HP-UX 


NTRITE 

Write  a record  to  tape.  The  user  supplies  the  record  to  be  written  in  the 
integer  array  buffer,  the  number  o~  characters  (bytes)  to  transfer  in 
nobytes,  and  the  file  descriptor  obtain<9d  from  a previous  call  tc  ntopen  in 
chanl  The  FORTRAN  syntax  is:  call  nt r i te( chanl , nobytes , buff er , status ) 

rest r i ct i ons : The  user  must  supply  a large  enough  buffer  for  the  of  bytes 
to  be  transferred.  At  present,  no  internal  error  handling  is  provided.  For 
example,  upon  encountering  the  end  of  taoe,  some  fraction  of  the  buffer  is 
written  to  tape.  However,  the  tape  is  not  backspaced  to  its  original 
position. 

NTRW 

rewino  the  magnetic 
NTRWRL 

rewind  and  release  the  magnetic  tape 
NTBLCK 

routine  to  position  a tape  file  forward  or  backward  over  n physical  blocks. 
The  number  of  blocks  to  pass  over  is  f count . where  fcount  positive  implies 
forward,  negative  implies  backward  motion. 
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nxtnd . b( 3 ) 


NAME 


nxtnd 


SYNOPSIS 

subroutine  nxtnd  ( t , dt , ns tep , tend , done ) 

double  precision  t 

double  precision  dt 

integer  nstep 

double  precision  tend 

integer  done 


DESCRIPTION 

nxtnd 

Sets  next  output  time  either  from  a base  file  (fofopt  non-zero) 
specified  time  step  dt  (bfopt*0).  Done  is  set  to  1 if  past  end  ti 
else  set  to  0.  If  nstep>0,  then  edit  status  is  not  checked.  If 
then  base  file  is  position  to  next  unedited  point. 

t next  time  (input/output) 

dt  step  size  (input) 

nstep  step  for  running  off  base  file  (input) 
teno  stop  time  (input) 

done  done  flag  (output) 

COMMENTS 

Base  file  data  must  be  less  than  100  words . 


or  by 
me  tend, 
bf opt>0. 
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NAME 

prodx 


SYNOPSIS 

program  prodx 

DESCRIPTION 

prodx 

Execut ive  for  RELBET  xape  proauct  output . 
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NAME 

sphdr 


SYNOPSIS 

subroutine  sphdr  (u,x.r) 
integer  u 

character*4  x (26) 
integer  r 


DESCRIPTION 

sphdr 

Displays  header  and  record  for  RELBET  DPF  generation 
u display  unit  (input) 

x header  message  (input/output) 

r numoer  of  record 
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NAME 

tbl chk 


SYNOPSIS 

integer  function  tbichk  ( i , t imtag , onof f ) 
integer  i 

aouole  precision  timtag 
integer  onoff 


DESCRIPTION 
to  1 chk 

Checks  to  see  if  time  tag  is  in  track ing  interval, 
i i ndex  ( i nput ) 

timtag  time  tag  (inout) 

onoff  1 if  in  tracking  intervals  (output)  =-i  not  in  tracking 


i nter va 1 s 
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NAME 

udpf mt 


SYNOPSIS 

subroutine  udpfmt  (temp,dpnew) 
integer  temp  (3) 
integer  cpnew  (3) 


DESCRIPTION 

udpfmt 

Converts  64  bit  HP9000  double  precision  word  to  72  bit  UNIVAC. 
temp  input  buffer 

dpnew  new  storage  variable  (output) 

COMMENTS 

Must  not  be  compiled  with  range  checking. 
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NAME 

u i nf mt 


SYNOPSIS 

subroutine  uinfmt  (input, int) 
integer  input  (2) 
integer  int  (2) 


DESCRIPTION 

uinfmt 

Moves  bits. 

input  input 

int  output  location 

COMMENTS 

Must  not  be  comp i 1 ed  with  range  check i ng . 
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NAME 

uspf mt 


SYNOPSIS 

subroutine  uspfmt  (temp. spnew) 
integer  temp  (3) 
integer  spnew  (2) 


DESCRIPTION 

uspfmt 

Converts  32  bit  HP9O00  single  precision  to  36  b 
temp  input  storage 
spnew  output  storage 
COMMENTS 

Must  not  be  compiled  with  range  checking. 


it  UNIVAC. 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


amenu . b( 3 ) 


( Prompts ) 


amenu . b( 3 ) 


NAME 

amenu 


SYNOPSIS 

subroutine  amenu  ( n i dz , x i dz , i dz  ) 
integer  mdz 
character  xidz  (mdz) 
integer  iaz  (nidz) 


DESCRIPTION 

amenu 

Sets  flags  according  to  prompt  menu, 
nidz  number  of  input  variables  (input) 

xidz  names  of  options  (input) 

i dz  on/off  flags  on,  -1  off  ( i nput/output ) 
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NAME 

dciph 


SYNOPSIS 

subroutine  dciph  ( prompt , type . nv , i v , rv , av ) 

character  prompt 

character  type 

integer  nv 

integer  iv  ( * ) 

real  rv  (*) 

double  precision  dv  (*) 


DESCRIPTION 
dc  i ph 

Read  input  character  string  and  translates  character  string  input  to 
numerical  values. 

prompt  display  prompt  (input) 

type  data  type  code  (input) 

nv  number  of  values  des i red( i nput ) 

iv  integer  value  array  (input) 

rv  real  value  array  ( i nput /out put 

dv  aouble  precision  value  array  ( input /output  1 
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NAME 

dciphr 


SYNOPSIS 

subroutine  dciphr  ( type , 1 x , x i n , nv , i v , rv  , dv  . erf  ) 

character  type 

integer  lx 

character^  xin  ( * ) 

integer  nv 

i nteger  iv  ( * ) 

rea 1 rv  ( * ) 

double  precision  dv  (*) 
integer  erf 


DESCRIPTION 
dc i phr 

Reads  input  character  string  and  translates  character  string  input  to 
numerical  values. 

type  aata  type  code  (input) 

lx  length  of  string  (input) 

xir.  character  array  (input) 

nv  number  of  values  desirec  (input) 

iv  integer  value  array  f i nput/output ) 

rv  real  value  array  ( i nput/output ) 

dv  ooupie  precision  value  array  ( i nput/output ) 

erf  error/stop  flag  (output) 

COMMENTS 

Input  string  is  considered  to  a max  of  80  characters. 
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NAME 

qxmenu.  pmenu , gmenu 
SYNOPSIS 

subroutine  qxmenu  ( nc , mnunam , np , pnmz , i sel , xsel ) 
integer  nc 
character *32  mnunam 
integer  np 

cnaracter*8  pnmz  (np) 
integer  isel 
character*^  xsel 

entry  pmenu  ( nc , mnunam * np , pnmz , i sel , xse 1 ) 
entry  gmenu  ( nc , mnunam , np , pnmz , i sel , xsel ) 

DESCRIPTION 

qxmenu 

Solicits  menu  prompt  from  input  list, 
nc  numoer  of  letters  to  check  (input) 

mnunam  name  of  menu  (input) 
np  number  of  items  in  menu 

pnmz  names  of  prompt  items  (incut) 
isel  selected  id  (output) 

xsel  first  four  characters  of  selected  item  (output) 
pmenu 

Initializes  count  and  selection  index,  display  option  menu  and  choice  and 
interpret  response. 

gmenu 

Obtains  menu  input. 
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NAME 

tio,  ctio,  itio,  dtio,  rtio 


SYNOPSIS 

subroutine  tio  ( p , 1 , i v , dv , rv . s t r ) 

character  p 

integer  1 

i nteaer  i v ( 1 ) 

double  precision  dv  (1) 

real  rv  ( 1 ) 

character  str 

entry  ctio  (p.l.str) 

entry  itio  ( p , 1 , i v ) 

entry  dtio  ( p , 1 , dv ) 

entry  r t i c ( p , 1 , rv ) 


DESCRIPTION 
t i o 

Interactive  terminal  i nput /'output . 
p prompt  string  (input) 

1 numoer  of  val ues  or  1 ength  of  str i ng( i nput  ) 

iv  integer  value  array  (input/output) 

dv  douole  precision  value  array ( i nput/output ) 

rv  real  value  array  ( i nput/output ) 

str  string  for  input/output  { i nput/outout  i 

ct  i o 

Character  entry  point  for  dciph  call. 


itio 

Integer  entry  point  for  dciph  call, 
dt  i o 

Double  precision  entry  point  for  dciph  call. 


rtio 

Real  entry  point  for  dciph  call. 
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NAME 

xqwtmz,  xqdatz,  xqtime 


SYNOPSIS 

subroutine  xqwtmz  ( p , ymdnm , sec ) 
character  p 
integer  ymdhm  (6) 
double  precision  sec 

entry  xqdatz  ( p , ymdhm , sec ) 

entry  xqtime  (pvsec) 


DESCRIPTION 

xqwtmz 

Interactive  input  of  dates  and  times, 
p prompt  string  (input/output) 

ymdhm  year . month , day , nour  minute  { i nput/ output ) 
sec  seconds  ( i nput /output ) 

xqdatz 

Obtains  a date  in  year , month , day . hou^ , mi nute . second . 


xqt i me 

Obtains  an  time  via  hour , m i nute , second  input. 
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NAME 

yesno 


SYNOPSIS 

subroutine  yesno  ( prompt , pyes ) 
character  prompt 
integer  pyes 


DESCRIPTION 

yesno 

Prompts  for  a yes  or  no  i nput . 
prompt  prompt  str i ng( i nput ) 

pyes  response  flag:  + = yes,  -=no  (output) 
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NAME 

dprop 

SYNOPSIS 

block  data  dprop 

DESCRIPTION 

dprop 

This  block  data  routine  initializes  the  common  used  by  this  program 
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NAME 

dvdt 


SYNOPSIS 

subroutine  dvdt  (t,rv,a) 
double  precision  t 
double  precision  rv  (6) 
double  precision  a (3) 


DESCRIPTION 

dvdt 

Computes  accel erat ion  for  a veh i cl e . 
t cur rent  time  ( i nput ) 

rv  veh i c 1 e position  and  velocity  ( i nput ) 

a accel erat i on  (output ) 

COMMENTS 

Vent  force  and  start  and  stop  Times  must  be  determined  by  driver. 
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NAME 

nprop 

SYNOPSIS 

subroutine  nprop 


DESCRIPTION 

nprop 

This  subroutine  fetches  the  user  inputs  for  the  common  blocks  needed  by 
this  program 
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NAME 

opnprp 


SYNOPSIS 

subroutine  opnprp  (fatals) 
integer  fatals 


DESCRIPTION 

driver  for  opening  the  fi 
opnprp 

fatals  fatal  error  count 
COMMENTS 

does  not  incorporate  full 


es  needed  for  propagat i on 

( output ) 
error  checks 
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NAME 

prpnpt 

SYNOPSIS 

subroutine  prpnpt 

DESCRIPTION 

prpnpt 

obtains  input  for  the  propagation  module 
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NAME 

runkut 


SYNOPSIS 

suoroutine  runkut  (t.dt,x) 
double  precision  t 
double  precision  dt 
double  precision  x (6) 

DESCRIPTION 

runkut 

Uses  4th  order  runae-kutta  integrator  to  propagate  position  and 
one  time  step. 

t initial  time  (input/output) 

dt  total  time  step  (i nput ) 

x pos i t i on  and  velocity  ( i nput /output ) 


velocity 
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NAME 

rvprop 


SYNOPSIS 

subroutine  rvprop  ( tout , veh id , trv ) 
double  precision  tout 
i nteger  ven i d 
double  precision  trv  (7) 


DESCRIPTION 

rvprop 

Obtains  a state  vector  at  desired  time  by  i)  interpolation.  2)  runge-kutta 
integration  of  input  state.  3)  super-g  integration  of  input  state. 

tout  required  output  time  (input) 

vehid  vehicle  id  (input) 

trv  vehicle  time,  position,  velocity  ( i nput/output ) 
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NAME 

rvup 


SYNOPSIS 

subroutine  rvup  ( c , s , u , ac , dr ) 
double  precision  c 
double  precision  s (6) 
double  precision  u (6) 
double  precision  ac  (3) 
double  precision  dr  (3) 


DESCRIPTION 

rvup 

Updates 

c 

s 

u 

ac 

dr 


pos i t i on  and  velocity, 
time  factor  (input) 
i nput  state  array  (i nput ) 
updated  state  array  (output) 
current  acceleration  (input) 
save  position  derivative  (input) 
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NAME 

superg 


SYNOPSIS 

subroutine  superg  ( hstep , tcur . s ) 
double  precision  hstep 
double  precision  tcur 
double  precision  s (6) 


DESCRIPTION 

superg 

Super  G integrator. 

hstep  current  step  size  (input) 

tcur  old  time  (output) 

s state  whose  position  and  velocity  a^e  to  be  advanced  (output) 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


tstep . b( 3 ) 


( Propagate) 


tstep . b( 3 ) 


NAME 

tstep 

SYNOPSIS 

subrout i ne  tstep  ( i nc , i v , tend , tc . dt , tnew ) 

DESCRIPTION 

tstep 

Obtains  next  time  for  integration  step. 
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NAME 

dpf  mt 


SYNOPSIS 

subroutine  dpfmt  (temp. dpnew) 
integer  temp  (3) 
integer  dpnew  (2) 


DESCRIPTION 

dpfmt 

convert  72  bit  unviac  dp- to ^64  hp 
temp  dp  buf f er ( i nput ) 

dpnew  hp  dp  buffer  (output) 
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NAME 

getbi t 


SYNOPSIS 

subroutine  getbit  (n,  in, iw, ib, itemp) 

integer  ib 

integer  in  (3) 

integer  itemp  (3) 

integer  iw 

integer  n 


DESCRIPTION 
getb i t 

extract  n consecutive  bits  from  the  array  in,  beginning  with  the  initial 

word  iw  and  initial  bit  ib,  and  store  in  the  f i.rst  portion  of  the  array 

itemp.  n is  usually  exDected  to  be  18,  36,  or  72  for  univac  created 

records . itemp  is  treated  as  32  bit  word  for  current  applications. 

ib  initial  bit  (input/output) 

in  input  array 

itemp  temp  buffer  (outout) 

iw  initial  word  ( i nput/ output ) 

n consecutive  bit  ( i nput /output ) 
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NAME 

i move 


SYNOPSIS 

subroutine  imove  ( i nput , i word".  , i b i 1 1 , 1 en , i out , i word2 , i b i t2  ) 

integer  ibitl 

integer  ioit2 

integer  inout  (*) 

integer  iwordl 

integer  iword2 

integer  l en 

integer  iout  (*) 


DESCRIPTION 
i move 

This  subroutine  moves  a field  of  bits  from  one  position  in  the  input  array 
to  another  position  in  the  output  array.  The  subroutine  allows  for  the 
input  and  output  arrays  to  be  the  same  array,  and  allows  the  source  field 

to  overlap  the  destination  field,  by  checking  whether  the  move  is  to  the 

left  (i.e.  lower  supscripts)  or  to  the  riant,  and  so  starting  the  move  at 

the  left  or  right,  respectively.  The  fields  may  span  wora  boundaries.  The 

user  is  cautioned  to  identify  the  arrays  by  their  first  subscript,  using 
the  calling  arguments  to  define  the  positions  of  interest  within  the 
arrays,  as  trickery  may  defeat  the  program  design  witn  unpredictable 
results.  In  common  with  all  refmt  utility  routines,  imove  allows  tne  user 
to  specify  the  word  length  and  integer  negative  number  conventions  desired 
for  bcth  input  and  output,  which  need  not  be  the  same.  All  internal 
calculations  are  done  using  HP-9000  integer  '22  bit  two's  complement) 
words.  However,  the  user  may  choose  to  reference  the  input  to  some  other 
computer,  e.g.  Uni  vac  36  bit  one's  complement.  In  this  way,  the  users 
orogram  can  read  Uni  vac  data  using  Uni  vac  subscripting. 

ibitl  bit  position  in  i nout ( i word  1 ) for  start  of  move  (internal  & 
output, input  & updted) 

ibit2  bit  position  in  iout(iwond2)  for  start  of  move  ( internal , input ) 
input  array  of  input  data  ( i nternal , i nput ) 

iwordl  subscript  to  input  array  using  wrdlni  length  words  for  start  of 
move  ( internal , input ) 

iwcrd2  subscript  to  output  array  using  wrdln2  length  words  for  start  of 
move  ( i nterna 1 , i nput ) 

1 en  no.  of  bits  remaining  to  be  transferred  ( i nternal , i nput ) 

iout  array  of  output  data  ( output . computed) 

COMMENTS 

All  calculations  of  the  beginning  and  ending  bit  positrons  within  the 
arrays  must  result  in  integer  numbers.  For  example  using  Uni  vac  input  word 
length  (36  bits  per  word),  the  max  array  size  is  59,652,323  which  defies 
the  imagination!  THE  USER  IS  RESPONSIBLE  FOR  PROTECTING  AGAINST  SUBSCRIPTS 
OUT  OF  RANGE!!!!  Several  Fortran  intrinsic  functions  whicn  are  not  part  of 
ANSI  Fortran  77  are  used  by  this  program. 
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NAME 

i nf  mt 


SYNOPSIS 

subroutine  infmt  (temp,int) 
integer  temp  (2) 
integer  i nt 


DESCRIPTION 
i nf  mt 

convert  univac  integer  to  hp  integer 
temp  input  buffer 

int  output  buffer 
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NAME 

qatape 


SYNOPSIS 

program  qataoe 


DESCRIPTION 

qatape 

This  program  reads  tne  data  product  (binary)  tape 
prints  the  first  and  last  page  if  print  is  set  to 
if  print  is  set  to  1 . It  prints  every  n records  if 
program  also  creates  a binary  disc  file(HP  format) 


created  on  Urn  vac.  1 1 
zero  & prints  every  page 
print  is  set  tc  2.  This 
when  print  is  set  to  3. 
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NAME 

spf  mt 


SYNOPSIS 

subroutine  spfmt  (temp,spnew) 
i nteger  temo  ( 3 ) 
integer  spnew  (1) 


DESCRIPTION 

spfmt 

converts  36  bit  univac  so  to  32  bit  hp 
temp  temp  buffer  (input/output) 
spnew  single  precision  buffer  (output) 
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NAME 

gspop . gspush  t aspeek,  gspoke , gsempty,  gsfree,  make_gstack,  q_pop . q_push 
stack  operations 


SYNOPSIS 


char  *gspop( stack ) 

P_GSTACK  stack; 

char  *gspush( stack , bl ock ) 

P_GSTACK  stack; 
char  *b  1 ock ; 

char  *aspeek ( stack , of f set ) 

P_GSTACK  stack; 
int  offset; 

char  *gspoke( stack , bi ock .offset ) 

P_GSTACK  stack; 
char  *block; 
int  offset; 

cha^  *gsempty( stack ) 

P_GSTACK  stack: 

char  *gsfree( stack 1 
P_GSTACK  stack; 

P_GSTACK  make_gstack( stack  tb_size , m_b  1 ock , buffer ) 

P_GSTACK  stack; 

int  0_size; 

int  m_biock; 

char  ^buffer; 

char  *q_popi queue ) 

P_OUEUE  queue; 

char  *q_push( queue , b 1 ock ) 

P_OUEUE  queue; 
char  *olock; 


DESCRIPTION 

gspop 

Pop  the  top  block  of  stack.  Return  pointer  found  in  top  olock.  Return  null 
pointer  if  stack  is  empty.  Decrement  block  count  and  po  nter  to  top  block. 
No  blocks  are  moved,  in  particular  top  block. 

gspush 

Push  block  on  top  of  stack,  return  pointer  to  new  top,  return  null  pointer 
if  no  room.  increment  pointer  to  top  block  and  block  count. 

gspeek 

To  read  contents  of  particular  block  in  stack.  Offset  indicates  location 
in  stack, 

>=0,  displacement  from  top 
< 0,  displacement  from  bottom. 

Return  pointer  to  start  of  requested  block.  Return  null  pointer  if  out- 
of -range . 

gspoke 

Place  contents  of  block  into  stack  replacing  particular  stack  block. 
Offset  indicates  location  in  stack, 
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>=0,  displacement 
< 0,  displacement 
Return  null  pointer  if 


from  top 
from  bottom, 
out -of  - range , 


non  null  otherwise. 


gs empty 

Empty  contents  of  stack. Set  top  of  stack  to  zero.  Return  null  pointer  if 
error  else  return  begi n of  stack 


gsf  ree 

Free  allocation  for  stack.  Return  null  pointer 
make_gstack 

b_size  block  size 

m_block  maximum  number  of  blocks 

buffer  pointer  to  where  stack  is  to  begin  Create  new  stack 

beginning  at  location  indicated  by  buffer.  having  block 
size  of  b_size,  and  maximum  number  of  blocks  m_block. 
Return  null  stack  pointer  when  error.  Return  pointer  to  new 
stack.  If  input  for  pointer  to  stack  is  null  then  space  is 
allocated  according  tc  stack  size.  If  onput  for  pointer  to 
char  is  null  then  space  is  allocated  according  to  m_block 
and  b size. 


q_p°p 

Pop  the  front  Dlock  of  queue.  Return  pointer  tc  old  front  block.  Return 
null  pointer  if  aueue  is  emotv.  Decrement  block  count.  Adjust  pointer  to 
front  dIock.  Nic  blocks  are  moved,  i n particular  front  block. 

q_pusn 

Push  block  on  top  of  queue,  return  pointer  to  new  top,  return  null  pointer 
if  no  room.  Increment  pointer  tc  top  block  and  block  count. 
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NAME 

BaseCa 1 Time,  JD_BaseTime,  GBeginTime,  GEndTime,  GDel Time,  LBeginTime, 
LEndTime,  LDelTime  - Base  and  time  control 

SVNOPSIS 


CALTIME  BaseCalTime; 
double  JD^BaseTime; 
double  GBeginTime; 
double  GEndTime; 
doubl e GDel T i me ; 
double  LBeginTime; 
double  LEndTime; 
double  LDelTime; 


DESCRIPTION 

These  oarameters  are  provided  w i tn  the  idea  that  Gbegi r,T  i me  < GEndTime  and 
that  the  nominal  Begin  and  Enc  times  oaf suit  to  these  values.  They  provide 
adaec  safety  in  tne  case  where  BeginTime  and  EndTime  may  be  changed  durinci 
execution. 

BaseCa 1 T i me 

Time  from  which  all  times  are  measured. 

Assumed  to  be  UT  in  Gregorian  Calendar 

JD__BaseT  i me 

Julian  date  of  BaseCalTime 
GBeg i nT i me 

Global  start  time  in  seconds  from  BaseCalTime. 

No  processing  is  considered  beyond  this  time 

GEndT i me 

As  BeginTime  but  at  end. 

GDel T i me 

Global  Time  step  in  seconds 

These  parameters  are  provided  with  the  idea  that  they  specify  working  time 
spans.  The  EndTime  %iay  be  Vess  than  the  BeginTime  for  backwards  time 
processing.  They  should  default  to  the  Global  times. 

LBeg i nT i me 

Start  time  in  seconds  from  BaseCalTime. 

LEndT i me 

As  BeginTime  but  specifies  end. 
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NAME 

cmpdat.  cdtojd.  jdtoca 


SYNOPSIS 

subroutine  cmpdat  (date.djul) 
douoie  precision  date  (6) 
double  precision  ajul 

entry  cdtojd  (date.djul) 

entry  jdtocd  (djul.date) 


DESCRIPTION 

cmpdat 

Does  true  calculations  for:  1)  Calendar  date  to  Julian  date.  2)  Julian 

date  to  Calendar  date. 

date  the  calendar  date-  yr  , mo,  day,  hr,  min,  sec  ( i nput/'output ) 
djul  Julian  date  (assumed  at  noon)  ( input/output) 
cdtoj  o 

Converts  a given  calender  date  to  its  correspond i ng  Julian  date, 
j dtocti 

Converts  double  precision  Julian  date  tc  year , month , day , hour . 
mi nute , seconds . 


COMMENTS 

Date  must  be  before  year  2000  and  after  1984. 
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NAME 

days 


SYNOPSIS 

subroutine  days  ( dvl , dv2 , d ) 
integer  dvl  (3) 
integer  dv2  (3) 
integer  d 


DESCRIPTION 

days 

Computes  the  number  of  days  between  two  calendar  dates, 
dvl  date  vector  (y.m,d)  for  first  date 

dv2  date  vector  (y.m,d)  for  second  date 

d number  of  days  d i f f erence  between  dates 

COMMENTS 

1.  Algorithm  works  for  years  after  1582. 

2.  I mD'j  ementat  i or  assumes  that  years  between  0 and  200  are  relative  to 
year  1900. 
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NAME 

daysxx 


SYNOPSIS 

function  daysxx  (y,m) 
integer  y 
integer  m 


DESCRIPTION 

daysxx 

Computes  leap-year  correction  to  days, 
y i nput  year 

m i nput  month 
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NAME 

dhms 


SYNOPSIS 

subroutine  dhms  (t,dhm,sec) 
double  precision  t 
integer  dhm  (3) 
real  sec 


DESCRIPTION 

dhms 

Converts  a time  in  seconds  to  days,  hours,  minutes,  seconds, 
t time  tag  ( ■»  nput ) 

dhm  days,  hours,  and  minutes  (output) 

sec  seconds  (output) 

COMMENTS 

Time  tag  must  be  in  seconds. 
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NAME 

hms2ds 


SYNOPSIS 

subroutine  hms2ds  (itime.te) 
integer  itime  (3) 
double  precision  te 


DESCRIPTION 

hms2ds 

Converts  hours  minutes  and  seconds  to  double  precision  seconds, 
itime  integer  hours,  minutes,  seconds  (input) 
te  doubl e prec i s i on  seconds  ( output ) 
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NAME 

j2c 


SYNOPSIS 

subroutine  j2c  ( t , j b , t v , sec ) 

double  precision  t 

integer  jb 

integer  tv  (5) 

real  sec 


DESCRIPTION 

j2c 

Takes  Julian  base  plus  offset  in  seconds  and  gives  back 
year , month , day , hour , m i n and  real  seconds. 

t input  time  in  seconds  relative  to  base  date 

jb  base  Julian  day  (input) 

tv  integer  time  vector  (y:m:d:h:m)  input 

sec  real  seconds  (output) 


i nteger 
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NAME 

j 2ymd 


SYNOPSIS 

subroutine  j2ymd  (id,ymd) 
integer  jd 
integer  ymd  (3) 


DESCRIPTION 
j 2ymd 

Computes  calendar  year  month  day  from  universal  Julian  date. 

jd  Julian  oate  ( input) 

ymd  year  month  day  vector  ( output ) 


TRW  Houston  System  Services 


1 


(printed  12/18/86) 


secnds . b( 3 ) 


(Time) 


secnds . b( 3 ) 


NAME 

secnds 


SYNOPSIS 

subroutine  secnds  ( date  1 , aate2 , secs ) 
double  precision  datei  (6) 
double  precision  date2  (6) 
double  precision  secs 


DESCRIPTION 

secnds 

Determines  the  difference  in  seconds  between  two  calendar  times, 
datei  1st  date  as  double  words  (input) 
date2  2nd  date  as  double  words  (input) 
secs  seconds  between  the  two  dates  (output) 
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NAME 

CurSysTime,  GMTsec.  GMTday,  GetCurTime,  fprtCurTime,  prtCu^Time  - system 
1 1 me 

SYNOPSIS 

CALTIME  CurSysTime; 
long  GMTsec; 
int  GMTday; 

CALTIME  *GetCurT i me( ) 

void  f prtCurT i me ( f i 1 e ) 

FILE  *file; 

void  prtCurTime() 


DESCRIPTION 

Module  for  ootaining  current  time  as  witnessed  by  system.  The  variables 
CurSysTime,  GMTsec.  and  GMTday  respectively  contain  the  system  GMT  date, 
secons  since  1970  and  days  since  1970.  Tnese  variables  are  set  upon 
calling  the  the  function  GetCurTime.  They  are  not  updated  otherwise  and 
may  accordingly  be  stale.  Note  in  particular  tnat  fprtCurTime  merely  prints 
what  is  in  CurSysTime  and  ooes  not  ubdate  the  value. 

Ge tCurT i me 

Sets  external  variable  to  curent  GMT  as  witnessed  by  system.  Returns 
pointer  to  the  variable  CurSysTime 

f prtCurT i me 

Display  current  system  time  in  full  format.  See  fprtctime  for  details. 
prtCurT ime 

Display  current  system  time  in  full  format  to  stdout. 
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NAME 

hms2sec,  sec2hms , dayslbc,  days,  etsec,  ju!2cal,  juldate,  jultime, 
stb_time,  mnthnum  - time  format  conversions 


SYNOPSIS 


double  hms2sec(hms) 

HMSTIME  *hms ; 

HMSTIME  *sec2hms ( hms . sec ) 
HMSTIME  *hms ; 
double  sec; 

days  1 bc( date ) 

CALDATE  *date ; 

daysf  date , base ) 

CALDATE  *da te , *base ; 

double  et sec( to , f rom ) 
CALTIME  * to , *f rom ; 

double  j u 1 2ca 1 ( j da te . date ) 
aouble  jdate; 

CALDATE  *date ; 

double  ju 1 date( date ) 
CALDATE  *date; 

doubi e jul t ime(c) 

CALTIME  *c ; 

std_t i me( t i me ) 

CALTIME  *time; 

mnthnuml month ) 
char  *month; 


DESCRIPTION 

hms2sec 

Return  seconds  specified  by  hms  structure 
sec2hms 

Convert  seconds  to  hour  minute  second  format.  Returns  the  pointer  to 
HMSTIME  structure.  Note  no  space  is  allocated. 

dayslbc 

Number  of  days  from  OjanIBC  using  the  Gregorian  calendar.  %CDates  are 
valid  from  150ct1582  in  Catholic  countries  (previous  -day  was  40ct1582  in 
old  style)  and  from  14Sep1752  ir.  British  countries  (US  included)  (previous 
day  was  2Sep1752  Old  style) 

days 

Number  of  days  from  base  date  to  date  . Dates  must  be  in  Gregorian 
calendar.  Note  that  aay  of  week  field  is  set  in  this  computation. 

etsec 

Returns  elapsed  time  in  seconds  from  CALTIME  from  to  CALTIME  to. 
j u 1 2ca 1 

Converts  input  Julian  date  to  calendar  date,  returning  the  number  of 
fractional  hours  left  in  the  julian  time.  Note  that  whole  Julian  dates 
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occur  at  noon  and  calendar  dates  are  Gregorian, 
j ul date 

Returns  julian  date  in  days.  Date  is  assumed  to  correspond  to  midnight 
thus  result  is  julian  date  of  midnight.  Method  is  to  add  julian  date  of 
OjanIBC  to  number  of  elapsed  days. 

i u 1 t i me 

Returns  julian  time  in  days  from  calendar  time.  Note  the  time  portion  is 
included  so  that  the  time  tag  does  not  always  end  with  a .5. 

std_t i me 

Ensures  Time  is  in  normalized  format,  ie,  right  month,  day,  etc.  Note  that 
the  day  of  the  week  f i e i o is  set  in  this  norma  1 i zat i on . 

mnthnum 

Returns  number  of  month  based  on  deciphering  the  characters  in  month. 
Differences  between  upper  and  lower  case  are  ignored.  Characters  are 
checked  until  a match  is  found  , e.g  jun  or  aP  are  june  and  april.  If  no 
match  then  0 is  returned 
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NAME 

makeTime,  makeHMS , makeDate,  setDate,  setHMS,  setTime  - Allocate  and  set 
time  structures 


SYNOPSIS 


CALTIME  *makeT i me ( n ) 
i nt  n ; 

HMSTIME  *makeHMS(n) 
i nt  n : 

CALDATE  *makeDate( n) 
i nt  n ; 

setDate ( date , year , month , day ) 

CALDATE  *date; 
int  year , month , day ; 

setHMS ( hms , hour .min, sec ) 

HMSTIME  *hms  ; 
int  hour, min; 
double  sec; 

setT i me( time. vear , montn , dav . hour , mi n . sec ) 

CALTIME  *:t  i me  : 

int  year , month , day ; 

int  hou~.rmn; 

double  sec; 


DESCRIPTION 

Create  and  initialize  time  structures.  callc-c  is  used  for  storaoe 
allocation  whence  structures  may  be  freed  with  free.  Null  pointers  are 
returned  when  errors  are  encountered. 


makeT i me 

Allocates  space  for  specified  number  of  CALTIME  structures.  Returns 

pointer  to  a CALTIME  structure. 

makeHMS 

Allocates  space  for  specified  number  of  HMSTIME  structures.  Returns 

pointer  to  initial  HMSTIME  structure. 

makeDate 

Allocates  space  for  specified  number  of  CALDATE  structures.  Returns 

pointer  to  initial  CALDATE  structure. 


setDate 

Set  date  structure  to  specified  values.  Note  that  day  of  week  is  net  set. 


setHMS 

Set  HMSTIME  structure  to  specific  values 


set i ime 

Set  time  structure  to  specified  values.  Note  that  day  of  week  field  is  not 
set . 
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NAME 

fprtdate,  sprtdate,  prtdate, 
sprtctime,  prtctime,  fprtsec. 
i nf ormat i on 


fprthms,  sprthms,  prthms , fprtctime. 
sprtsec,  prtsec  - display  formatted  time 


SYNOPSIS 


void  f prtdate( f i 1 e . date ) 
FILE  *f lie; 

CALDATE  *date ; 

void  sprtdate(s,date) 
char  *s; 

CALDATE  *date; 

void  pr tdate( da te ) 

CALDATE  *date; 

void  f prthms ( f i 1 e , hms ) 
FILE  *f i le; 

HMSTIME  *hms ; 

void  sorthmsf s . hms ) 
char  »s; 

HMSTIME  *hms ; 

vo i 6 prthms ( hms } 

HMSTIME  *nms: 

void  f pr tct ime( f i 1 e , t i me ) 
FILE  *f i le: 

CALTIME  *time; 

void  sprtct ime(s , t ime) 
char  *s; 

CALTIME 

void  pr tct i me ( t i me ) 
CALTIME  *time; 

void  f prtsec( f i 1 e , sec ) 
FILE  *f i le; 
double  sec; 

void  spr tsecl s , sec ) 
char  * s ; 
double  sec; 

void  prtsec (sec) 
double  sec; 


DESCRIPTION 

Note  that  the  file  print  routines  do  not  add  newlines  nor  do  they  flush  tne 
print  buffers.  The  displays  to  stdout  out  do  however. 

fprtdate 

Formatted  print  of  date  to  file  in  Dayofweek  Monthday,  month  year  format, 
sprtdate 

Formatted  print  of  date  to  file  in  Dayofweek  Monthday,  month  year  format. 
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t 1 mepr i nt . c( 3 ) 


(Time ) 


imepr i nt . c( 3 ) 


pr tdate 

Formatted  Drint  of  date  to  stdout 
f prthms 

Formatted  print  of  hms  to  file  m hr:min:sec  format, 
sprthms 

Formatted  print  of  hms  to  string  in  nr:mir.:sec  format, 
prthms 

Formatted  print  of  hms  to  stdout  in  hr:min:sec  format 
f prtct ime 

Formatted  print  of  calendar  time  to  specified  file, 
sprtct ime 

Formatted  print  of  calendar  time  to  specified  string, 
prtct ime 

Formatted  print  of  calendar  time  to  stdout 
f pr xsec 

Formatted  print  of  hms  tc  file  in  hr:min:sec  format, 
spr tsec 

Formatted  print  of  nms  to  string  in  hr: min: sec  format, 
ortsec 

Formatted  print  of  nms  tc  stdout  in  hr:min:sec  format 
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ymd2 j . b( 3) 


(Time) 


ymd2 j . b( 3 ) 


NAME 

ymd2j 


SYNOPSIS 

suoroutine  ymd2j  (vmd.jd) 
integer  ymd  (3) 
integer  j a 


DESCRIPTION 
ymd  2 j 

Computes  Julian  universal  date  given  calendar  year , month , day . 

ymd  calendar  year  month  day  (input)  year  is  either  calendar  year 

calendar  year  mod  1900 

jd  Julian  date  (output) 


or 
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